Question

所以我想做一个循环，在所有工作表中自动填充同一列。我记录了宏，但显然那是很多代码。我尝试使用循环，但是我想自动填充的某些变量在末尾带有数字（例如“ ULA2”），因此使用自动填充将使整列ULA2，ULA3，ULA4等...如何我可以纠正吗？这是我的代码：

$HOSTNAME

Answer 1

如果要在所有工作表上执行此操作，则可以使用以下命令：

For Each mySht In Application.Worksheets
    mySht.Range("F2:F" & mySht.UsedRange.Row + mySht.UsedRange.Rows.Count - 1).Value = mySht.Name
Next mySht

Answer 2

这应该可以解决问题。它将遍历您所有的工作表，并将行F（在标题之后并向下到底部）设置为与工作表名称相同

Dim i As Long
Dim LastRow As Long

For i = 1 To Worksheets.count
    With Sheets(i)
        LastRow = .Cells(Rows.count, "F").End(xlUp).row
        .Range("F2:F" & LastRow).Value2 = .Name
    End With
Next i

如何填充列循环？ VBA Excel

2 个答案: