请大佬用VBA完成所示

q1342871134 · 发表于 2024-11-21 15:38

本帖最后由 q1342871134 于 2024-11-21 15:46 编辑

将D:E列数据通过VBA实现A:B列的效果，简单叙述下就是当D列存在非空单元格时，将每个非空单元格区域最后一行复制，粘贴到E列空白单元格区域，到上一个有数据的单元格为止

3190496160 · 发表于 2024-11-21 16:47

就是一个简单的循环判断而已嘛，

3190496160 · 发表于 2024-11-21 16:51

Sub test()
r = Cells(Rows.Count, 4).End(xlUp).Row + 1
ar = Range("d1:e" & r)
For i = 3 To UBound(ar) - 1
If ar(i, 1) <> "" And ar(i + 1, 1) = "" Then
      js = i
      For s = 1 To js
         If ar(s, 2) = "" Then
            ar(s, 2) = ar(i, 1)
         End If
      Next s
End If
Next i
Range("d1:e" & r) = ar

End Sub

3190496160 · 发表于 2024-11-21 16:52

3190496160 · 发表于 2024-11-21 17:38

新建 XLSX 工作表.rar (13.65 KB, 下载次数: 0)

		自动登录	找回密码
密码			免费注册