操屁眼的视频在线免费看,日本在线综合一区二区,久久在线观看免费视频,欧美日韩精品久久综

附件已上傳。。運行時顯示無法對合并單元格作出更改

此為提取表1-表31m34:ab47 的數據到表32.

方便后面分類提取

這是以前找論壇大神寫的。現在要做點修改。

我不會VBA .大神們幫忙看看。謝謝

Sub zz()

Dim ar, lh, sh, Arr(1 To 5000, 1 To 4), Brr(1 To 5000, 1 To 7)

. = False

lh = Array(2, 3, 4, 5, 7, 8, 9, 10, 11, 12, 13)

sh = Array(1, 2,4不能對合并單元格做部分修改, 5, 6, 8, 9, 11, 14, 15, 16)

With

.[b2:e500].

.[g2:m500].

End With

For i = 1 To 31

ar = ("" & i).[m34:ab47]

For x = 1 To (ar)

If ar(x, 1) "" Then

For j = 0 To (lh)

If j < 4 Then

Arr(2 + n - 1, lh(j) - 1) = ar(x, sh(j))

Else

Brr(2 + n - 1, lh(j) - 6) = ar(x,sh(j))

End If

Next

n = n + 1

End If

Next

Next

With

.[b2].(n不能對合并單元格做部分修改, 4) = Arr

.[g2].(n, 7) = Brr

End With

. = True

End Sub