求取中间指定列数据并按条件横转竖

yutianlian

求取中间指定列数据并按货号、店铺条件横转竖
组内店铺分货 (1).rar (116.65 KB, 下载次数: 17)

2024-3-6 14:06 上传

点击文件名下载附件

cnmlgb9998

PQ！！！！！！！！！！！！！！！！！！！！

shiruiqiang

shiruiqiang

Sub test()
Dim arr, brr(1 To 10000, 1 To 6)
r = Sheets(1).[b65536].End(xlUp).Row
arr = Sheets(1).Range("a3:co" & r)
For x = 4 To UBound(arr)
For y = 5 To UBound(arr, 2)
If InStr(arr(1, y), "店铺") Then
If arr(x, y) > 0 Then
n = n + 1
brr(n, 1) = "'" & arr(x, 2)
brr(n, 2) = arr(x, 3)
brr(n, 3) = arr(x, 4)
brr(n, 4) = arr(x, 5)
brr(n, 5) = arr(3, y)
brr(n, 6) = arr(x, y)
End If
End If
Next
Next

Sheets(2).[a2].Resize(n, 6) = brr
Beep
End Sub

yutianlian

shiruiqiang 发表于 2024-3-6 14:48

谢谢，可以满足需要

yutianlian

shiruiqiang 发表于 2024-3-6 14:48

您好，中间的店铺个数是不固定多少列的，有可能5个，也有可能是10个，可能更多

shiruiqiang

yutianlian 发表于 2024-3-6 15:45
您好，中间的店铺个数是不固定多少列的，有可能5个，也有可能是10个，可能更多

如果第三行的第5列往右开始，不管哪一列，只要含有“店铺”字样的都统计进去，不管你是10列还是100列。

yutianlian

shiruiqiang 发表于 2024-3-6 15:49
如果第三行的第5列往右开始，不管哪一列，只要含有“店铺”字样的都统计进去，不管你是10列还是100列。

店铺这两个字是我随便弄的，实现中不会这样，没有规律的，能以后面的进字截止吗

shiruiqiang

从13列开始，到第4行最后一个“进”字所在的列

yutianlian

shiruiqiang 发表于 2024-3-6 16:10
从13列开始，到第4行最后一个“进”字所在的列

非常感谢大侠的无私精神