寻求帮助使用VBA将值从一个单元格复制到另一个单元格。

Question

我正在寻找excel Macros的一些帮助。确切地说，如果A列中有值，则将该值复制到该值下的下2个单元格中（假设某个值存在于A1中，那么它应该复制到A2和A3中）。同样的事情应该直到K列。（请注意：如果A3中已有值，则应将A1的值复制到A2，不应覆盖A3）。

Answer 1

我不清楚您的表格和数据，但是下面的代码可能会为您提供实施方案。下面的代码处理直到列C. A1到C2然后再增加5

Sub copy()
Dim lngVar As Long, i As Long, j As Long
j = 2
lngVar = Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To lngVar
    Range("C" & j).Value = Range("A" & i).Value
    j = j + 5
Next i
End Sub

我没有测试上面的代码，因为我没有安装excel :(