在创build新工作簿时，将select单元格粘贴到列中

此脚本复制工作簿中所有工作表的C2：C3的所有单元格。 我想要它忽略所有隐藏的表。 当我尝试粘贴到下一个可用列时，当前脚本也粘贴到下一个可用行中。

Option Explicit Sub Sample() Dim wsInput As Worksheet, wsOutput As Worksheet Dim rng As Range Dim LRowO As Long, LRowI As Long 'Set the output sheet Set wsOutput = ThisWorkbook.Sheets("Master") For Each wsInput In ThisWorkbook.Worksheets If wsInput.Name <> wsOutput.Name Then With wsInput Set rng = .Range("C2:C3") rng.Copy With wsOutput LRowO = .Range("A" & .Rows.Count).End(xlUp).Row + 1 .Range("A" & LRowO).PasteSpecial xlPasteValues, _ Operation:=xlNone, SkipBlanks:=False, Transpose:=False End With End With End If Next wsInput Exit Sub End Sub 

Answer 1

testing：

 Option Explicit Sub CommandButton() Dim ws1 As Worksheet, ws2 As Worksheet, wsM As Worksheet, lr As Long Set wsM = Worksheets("Master") Set ws1 = Worksheets("New_Part") ws1.Copy After:=Worksheets(ws1.Index) Set ws2 = Worksheets(ws1.Index + 1) lr = wsM.Cells(wsM.Rows.Count, 1).End(xlUp).Row + 1 wsM.Range(wsM.Cells(lr, 1), wsM.Cells(lr + 1, 1)).Value2 = ws2.Range("C2:C3").Value2 End Sub