Ms Excel - VBA代码/宏到自动填充列

Question

有人可以帮助我使用Excel中的VBA代码来填充特定文本的列。 在列中有1000行，每200或300行后文本更改。我想将文本复制到每一行，当文本更改时，应复制下一个文本，依此类推。

谢谢。

Answer 1

你可以试试这个......

选择整列A，按Ctrl + G并单击特殊 - ＆gt;选择空白 - ＆gt;点击OK - ＆gt;从键盘输入=并按向上箭头键并按Ctrl + Enter键（即按住Ctrl键并按Enter键），然后复制A列并将其粘贴回仅作为值。

或者你可以简单地运行以下宏来执行上面写的所有步骤......

Sub Autofill()
Dim lr As Long
lr = ActiveSheet.UsedRange.Rows.Count
On Error Resume Next
Range("A2:A" & lr).SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
Range("A2:A" & lr).Value = Range("A2:A" & lr).Value
End Sub

如果您有多列自动填充，您可以将Range（“A2：A”＆amp; lr）替换为您的实际范围，例如Range（“A2：Z”＆amp; lr），其中Z是最后一列使用的表单中的一个例子。