如何使用VBA將數據添加到Excel中的列

Question

這是我的工作表（工作表2）的示例，

A      B  
       10  
       20  
       30  
       40  
       50  

我正在嘗試對值進行硬編碼，對工作表2中的A列說“數據”，直到B列的最后一行，這樣我的輸出將如下所示

A      B  
Data   10  
Data   20  
Data   30  
Data   40  
Data   50  

目前，我正在使用以下代碼，但出現錯誤！ 如何做到這一點。

Sub AddData()
Sheets("Sheet2").Range("A2:A" & LastRow).Value="A"
End Sub

Answer 1

嘗試這個：

Sub AddData()
    Dim LastRow As Long
    LastRow = Sheets("Sheet2").Cells(Rows.Count, "B").End(xlUp).Row
    Sheets("Sheet2").Range("A1:A" & LastRow).Value = "Data"
End Sub

Answer 2

同一答案的另一種扭曲...

Sub AddData()
    Dim LastRow As Long

    LastRow = Sheets("Sheet4").UsedRange.Rows.Count
    Sheets("Sheet4").Range("A2:A" & LastRow).Value = "Data"
End Sub

Answer 3

您似乎沒有LastRow的值。 您可以使用以下方法找到最后一行：

Sub AddData()
   lastRow = Sheets("Sheet2").Cells(65536, 2).End(xlUp).Row
   Sheets("Sheet2").Range("A2:A" & lastRow).Value = "A"
End Sub

Answer 4

Sheets("Sheet2").Columns("B").SpecialCells(xlCellTypeConstants, xlNumbers).Offset(, -1) = "Data"

根據您的eexample，這會將“ Data”字符串放在列“ A”旁邊包含列號的任何“ A”列單元格中

但您可以更改此“過濾”

例如：

Sheets("Sheet2").Columns("B").SpecialCells(xlCellTypeConstants).Offset(, -1) = "Data"

將考慮“ B”列中所有包含常量的單元格（它們是數字還是文本值）

而：

Sheets("Sheet2").Columns("B").SpecialCells(xlCellTypeFormulas).Offset(, -1) = "Data"

將考慮“ B”列中包含公式的所有單元格

參見https://msdn.microsoft.com/zh-cn/library/office/ff196157(v=office.15).aspx