Excel VBA遍历列以将非空白复制并粘贴到其他3列？

Question

我是 Excel VBA 新手，遇到了障碍。当我运行它时我没有收到任何错误，我什至不确定从哪里开始......

我想搜索 C 列，如果存在非空白值，则将该值复制到同一工作表的 (D、G、I) 列。我会在第 4 行开始搜索。

我已尝试单步执行代码，我很确定我的错误是 currVal = ws.Cells(i, "c")。当我逐步完成时，Excel 表上没有任何反应（没有复制或粘贴单元格）。

非常感谢任何帮助！我整个上午都在看这个。

Sub Copy()

Dim lastC As Integer
Dim i As Integer
Dim j As Integer
Dim currVal As String
Dim ws As Worksheet

Set ws = ActiveSheet
lastC = ws.Cells(Rows.Count, 1).End(xlUp).Row

For i = 4 To lastC
currVal = ws.Cells(i, "c")
   If ws.Cells(i, 1).Value <> "" Then
       currVal = ws.Cells(i, "D")
       currVal = ws.Cells(i, "G")
       currVal = ws.Cells(i, "I")
    End If

Next i

End Sub

实际结果是什么都没有发生（至少我可以看到）并且没有错误给我一个开始寻找的地方！

预期结果会将其复制到另外 3 个列中。结果是一个实际的公式。这个公式是我需要复制的。

5/27/2019 9:39 --- 价值

='15_2019-02_003.CSV'!$A$2 -- 公式

一旦从原始 CSV 文件中提取值，我已经解决了公式更新和删除对 CSV 文件的引用的问题。这段代码的目的只是搜索空白和复制/粘贴。Picture of Excel WS

Answer 1

添加到 cmets，这就是我编写特定代码的方式，也许它会有所帮助：

Sub Copy()

    Dim ws As Worksheet: Set ws = ActiveSheet
    Dim lastC As Long: lastC = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    Dim R As Long 'I like to use R (rows) & C (cols), just because makes it more readable (for me)

    For R = 4 To lastC
        With ws
            If .Cells(R, "A").Value <> "" Then
                .Cells(R, "D") = .Cells(R, "C").Value
                .Cells(R, "G") = .Cells(R, "C").Value
                .Cells(R, "I") = .Cells(R, "C").Value
            End If
        End With
    Next R

End Sub

PS：.Cells 引用我更喜欢数字而不是字母，但在这种情况下使用字母是可以理解的。仅用于最佳实践 - 出于可读性考虑，不应混合使用它们。