在追加到單元格時在excel vba中輸入類型不匹配

Question

我嘗試使用vba腳本將一些文本附加到我的excel文檔中的每個標題列。

Dim c As Range 

For Each c In Sheet13.Rows(1) 
    c.Value = c.Value & "bleh" 
Next 

但是，這給了我一個類型不匹配的錯誤13，我不知道爲什麼。 單元格只包含文本。

Answer 1

For Each c In Sheet13.UsedRange.Rows(1).Cells 

.Cells獲取單個單元格而不是整行。

.UsedRange避免到行尾（XFD1）。你可以調整它得到唯一的非空的，恆定的細胞，即：

For Each c In Sheet13.UsedRange.Rows(1).SpecialCells(xlCellTypeConstants) 

Answer 2

嘗試下面的代碼：

Option Explicit 

Sub AddBleh() 

Dim c As Range 
Dim LastCol As Long 
Dim HeaderRng As Range 

With Sheet13 
    ' find last column with data in header row 
    LastCol = .Cells(1, .Columns.Count).End(xlToLeft).Column 

    ' set Range to only header row where there is data 
    Set HeaderRng = .Range(.Cells(1, 1), .Cells(1, LastCol)) 

    For Each c In HeaderRng.Cells 
     c.Value = c.Value & "bleh" 
    Next 

End With 

End Sub