显示单元格内容

Question

我刚开始使用VBA而且我需要。我想通过使用For函数将内容从Sheet1移动到Sheet2，因为我希望它在后台运行，但我似乎无法反映Sheet2中的内容。如果我单步执行代码，它的功能正常，但它没有反映在实际的工作表上。

Dim CellCount As Long 
Dim CellCon As Long
Dim Val As String ' Holds cell Content

CellCount = Worksheets("Sheet1").Range("A:A").Cells.SpecialCells(xlCellTypeConstants).Count

    For CellCon = 1 To CellCount

        Val = Worksheets("Sheet1").Range("A:A").Cells(CellCon)
        Worksheets("Sheet2").Range("A1").Offset(CellCount).Value = Val

    Next CellCon

请帮我理解这一点。

Answer 1

NULL

应改为

Worksheets("Sheet2").Range("A1").Offset(CellCount).Value = Val

对于具有不同目的的变量使用相似的名称有时会导致混淆。