两列数据，只粘贴空单元格对应列的数据，

wangjwpx · 发表于 2023-3-14 12:55

两列数据，只粘贴空单元格对应列的数据，例如C6单元格数据粘贴到A6单元格，其它非空单元格对应的单元格不粘贴。怎么快速粘贴？

迪尼索斯 · 发表于 2023-3-14 13:04

0123456789

ykcbf1100 · 发表于 2023-3-14 13:31

参与一下。。。

wangjwpx · 发表于 2023-3-14 13:50

迪尼索斯发表于 2023-3-14 13:04
0123456789

老师，我将代码改成

Sub test()
Dim arr
arr = UsedRange
For i = 2 To UBound(arr)
If arr(i, 12) = "" Then arr(i, 12) = arr(i, 19)
Next
UsedRange = arr
End Sub

后For i = 2 To UBound(arr)出问题

sxbjzjf110 · 发表于 2023-3-14 17:15

迪尼索斯 · 发表于 2023-3-14 20:07

wangjwpx 发表于 2023-3-14 13:50
老师，我将代码改成

Sub test()

你看看ubound(arr,2)值是多少

wangjwpx · 发表于 2023-3-14 21:36

迪尼索斯发表于 2023-3-14 20:07
你看看ubound(arr,2)值是多少

结果一样

迪尼索斯 · 发表于 2023-3-15 12:05

wangjwpx 发表于 2023-3-14 21:36
结果一样

我的意思是你把数据移动到17和19列，ubound(arr,2)是取usedrange的最大列数，是不是小于19

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

[求助] 两列数据，只粘贴空单元格对应列的数据，

评分

评分

评分