VBA根据单元格条件复制区域内容到指定表区域 并且不能覆盖上一个区域

zhouhuan29

求大神指点！在线等

蓝桥玄霜

复制的代码：

zhouhuan29

这个地方 出错了 我是VBA 小白   我用的是WPS

zhouhuan29

HJJJJJJJJJJJJJJJJJJJJJJJJJJJJJ

zhouhuan29

Sub Iqxs()
Dim d, Arr, j&, jc
Set d = CreateObject("Scripting. Dictionary")
Sheet1.Activate
Arr = Sheet2.UsedRange
For j = 1 To UBound(Arr, 2) Step 3
If Arr(l, j) <> "" Then d(Arr(l, j)) = j
Next
jc = [al].Value
If d.exists(jc) Then Sheet2.Cells(3, d(jc)).Resize(12, 3) = [a3:c14].Value
End Sub

zhouhuan29

自己顶下 虽然已经用笨的办法解决 还是希望得到更简单的VBA 为后来着用得着