excel - 如何获取将数据从 sheet2 复制到 sheet1 的代码？

Question

我得到了显示变量值的代码，而不是复制到Sheet1. 我如何让它将代码复制到新工作表？

我有代码来显示一个值的地址并需要它复制到Sheet1.

Sub check_0_2()

    Dim wb As Workbook
    Set wb = ThisWorkbook
    Dim ws As Worksheet
    Set ws = wb.Sheets("Sheet2")
    Dim ws2 As Worksheet
    Set ws2 = wb.Sheets("Sheet1")
    Dim rng As Range
    Set rng = ws.Range("A1").CurrentRegion
    Dim cell As Range
    Dim lastrow As Long
    For Each cell In rng
        If cell.Value = 0 Then
        lastrow = ws2.Cells(ws2.Rows.Count, "A").End(xlUp).Row
            ws2.Range("A" & lastrow).Value = cell.Value
            Debug.Print "found in " & cell.Address
        End If
        lastrow = ws2.Cells(ws2.Rows.Count, "A").End(xlUp).Row
    Next cell
End Sub

它只在单元格 A1 中显示 0，而且应该更多。

标签： excelvba