Question

我是vba的初学者。我正在尝试编写一个宏来帮助我循环遍历该工作簿的每个单元格的文件夹中的所有工作簿。如果单元格为空，则将其粘贴到主工作簿的单元格上，其位置与原始工作簿的位置相同（这些工作簿共享相同的格式）。这就是我所拥有的，我知道这是错的。请帮帮我。真的很感激你的建议。感谢。

Sub copycat()

Dim x As Range
Set x = ActiveCell

For Each Cell In 
    Workbooks("work2.xlsm").Worksheets("sheet1").Range("a1:j10")

    If IsEmpty(Cell.Value) = False Then

        Workbooks("work2.xlsm").Worksheets("sheet1").Range("x").Copy 
        Workbooks("work2.xlsm").Worksheets("sheet1").Range("x")

    End If

Next Cell


End Sub

Answer 1

下面的代码将复制Range中的所有非空单元格。

您尚未指定要粘贴这些值的目标Workbook。

Sub copycat()

Dim Cell As Range

For Each Cell In Workbooks("work2.xlsm").Worksheets("sheet1").Range("A1:J10")
    If Trim(Cell.Value) <> "" Then ' if cell is not empty
        Cell.Copy ' <-- copy the cell

        ' not sure where you want to paste it ??

    End If
Next Cell

End Sub

VBA将非空白单元格复制到主工作簿

1 个答案: