利用大神们教的技巧简单修改下，结果发下又不行了，请求帮忙改代码

一只猫！

Sub test1()
Dim arr, brr
Dim x, y, k
arr = [a1].CurrentRegion

For y = 2 To UBound(arr)
  For x = 5 To UBound(arr)
    If arr(x, y) <> "" Then
    k = k + 1
    brr(k, 1) = arr(x, 1)
    brr(k, 2) = arr(x, y)
    brr(k, 3) = arr(2, y)
    brr(k, 4) = arr(3, y)
    End If
  Next
Next
With Sheet2
.[A1:D1] = Array("地址", "价格", "重量", "快递")
.[a2].Resize(UBound(brr), 4) = brr
End With
End Sub

求改代码

shiruiqiang

For y = 2 To UBound(arr)应该为For y = 2 To UBound(arr，2).
需要修改4处

一只猫！

shiruiqiang 发表于 2023-3-6 18:31
For y = 2 To UBound(arr)应该为For y = 2 To UBound(arr，2).
需要修改4处

感谢大神  我再研究下上限跟下线的修改

杨建营

UBound(arr)一般表示数组的行，而UBound(arr，2)一般表示数组的列，记住一般规律就好。

gwjkkkkk

一只猫！ 发表于 2023-3-6 20:03
感谢大神  我再研究下上限跟下线的修改

参与 一下。。。