Question

我编写了一个宏，它将值粘贴到每个工作表的列中。当我运行代码时，它只是循环遍历活动工作表几次。我试过添加ws。在代码中的Range，但我得到一个编译错误。

有人可以帮我吗？

Sub Aanvullen_adminitsratie_data()

    Dim ws As Worksheet
    For Each ws In ActiveWorkbook.Worksheets

With ws
   Range("K2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.ClearContents
    Range("AA1").Copy
    Range("K2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("J1048576").Select
    Selection.End(xlUp).Select
    Selection.Offset(0, 1).Select
    Range(Selection, Selection.End(xlUp)).Select
    Selection.FillDown
End With

    Next ws


   End Sub

Answer 1

感谢您提供的信息，我一直在选择＆amp; amp;选择文章，我不完全确定它是如何工作的，但我发现了一种有效的方法。它是以下代码：

Sub Aanvullen_adminitsratie_datatest()

    Dim ws As Worksheet
    Dim lastRow As Integer
    For Each ws In ActiveWorkbook.Worksheets

With ws
   lastRow = ws.Cells(Rows.Count, 1).End(xlUp).Row
   ws.Range("AA1").Copy
   ws.Range("K2:K" & lastRow).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

 End With

    Next ws


   End Sub

Excel：循环遍历不同的工作表

1 个答案: