新建一个宏,在宏里修改成以下代码,执行一遍既可:
Dim i As Long 'i代表B列行数
Dim j As Long 'j代表D列行数
Dim flag As Integer
flag = 0
i = 3
j = 4
Do While Cells(i, 2) <> "" And flag < 100
If Cells(j, 4) <> "" Then
Cells(j, 4).Value = Cells(i, 2).Value
i = i + 1
j = j + 1
flag = 0
Else
j = j + 1
flag = flag + 1
End If
Loop
温馨提示:内容为网友见解,仅供参考