如何使用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