基本上我有以下内容:
2列,列A包含名称,列B包含日期
我需要复制第1列中的数据并将其放在第1列内容的末尾(例如A1到A10包含不同的名称)而不删除原始内容。
我需要复制第2列中的数据并将其放在第2列中内容的末尾(例如B1到B10包含相同的日期和10个不同名称的“12-sep”)但是这里它应该改为第二天(B11至B20另一个日期“13-sep”)
答案 0 :(得分:0)
尝试一下:
Sub dural()
For I = 1 To 110 Step 10
Range("A" & I & ":B" & I + 9).Copy Range("A" & I + 10)
Range("B" & I + 10 & ":B" & I + 19).Value = Range("B" & I + 10).Value + 1
Next I
End Sub