Excel VBA工作表循环-如何在n个工作表之间移动
Excel VBA工作表循环-如何在n个工作表之间移动
提问于 2017-07-19 02:01:57
下面是一个简单的循环，它将一个范围复制到同一工作表上的另一个位置。这也需要循环遍历所有剩余的工作表，并执行相同的复制粘贴值。我在循环中使用变量"Dim ws“是可疑的。
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回答 1
Stack Overflow用户
回答已采纳
发布于 2017-07-19 02:07:23
我觉得你需要这个。此外，如果检查大写名称，则必须确保与大写文本进行比较。
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页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/45174048
复制相关文章
相似问题
腾讯云开发者
