我尝试过在网上找到的各种解决方案,但还没有运气 . 这是我的VBA代码,用于从大约30张纸张中复印单元格并将它们全部粘贴到一张纸上 . 每张工作表都有4列中的公式,如果另一张表中有值,则显示值 . 像这样:
=IF(Sheet1!A2<>"", Sheet1!A2, "")
然后我在我希望它输出的页面上运行我的宏:
Sub SummurizeSheets()
Dim ws As Worksheet
Application.ScreenUpdating = False
Sheets("Summary").Activate
For Each ws In Worksheets
If ws.Name <> "Summary" And ws.Name <> "Sheet1" Then
ws.Range("A2:D5406").Copy
Worksheets("Summary").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial (xlPasteValues), SkipBlanks:=True
End If
Next ws
End Sub
在具有实际值的那些之后,输出导致大量空白单元格 .
我尝试将“SkipBlanks”变体放在那里,但那不是解决方案 . 任何帮助,将不胜感激 .
1 回答
这是我在excelforum.com上回答的问题,我想我会在这里发布解决方案,以防它帮助其他人 .