Question

这是一个简单的循环，它将范围复制到同一工作表上的另一个位置。这还需要遍历所有剩余的工作表并执行相同的复制粘贴值。我使用变量＆＃34; Dim ws＆＃34;在循环中是可疑的。

Sub UpdateSPCData()
Dim ws As Worksheet

For Each ws In ThisWorkbook.Worksheets
    Select Case UCase(wsLoop)
    Case "Data - MOAQ", "Report" 'Do nothing
    Case Else
        Range("H2:H5").Copy
        Range("I2").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    End Select
Next ws
End Sub

Answer 1

我认为你需要这个。此外，如果检查大写名称，则必须确保与大写文本进行比较。

Sub UpdateSPCData()

Dim ws As Worksheet

For Each ws In ThisWorkbook.Worksheets
    Select Case UCase(ws.Name)
    Case "DATA - MOAQ", "REPORT" 'Do nothing
    Case Else
        ws.Range("H2:H5").Copy
        ws.Range("I2").PasteSpecial Paste:=xlPasteValues
    End Select
Next ws

End Sub

Excel VBA工作表循环 - 如何在n个工作表中移动

1 个答案: