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

Sub CopyData()
    Dim lastRow As Long
    Dim i As Long
    
    ' 获取最后一行
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row
    
    ' 循环遍历第一列
    For i = 1 To lastRow
        ' 检查单元格是否为空白
        If Not IsEmpty(Cells(i, 1)) Then
            ' 将非空白单元格的值复制到其他三列
            Cells(i, 2) = Cells(i, 1).Value
            Cells(i, 3) = Cells(i, 1).Value
            Cells(i, 4) = Cells(i, 1).Value
        End If
    Next i
End Sub