各位老师好！VBA要怎么取数，请老师们帮忙看看，谢谢！！

13602822168 · 发表于 2024-8-23 15:07

ykcbf1100 · 发表于 2024-8-23 15:17

附件供参考。。。

ykcbf1100 · 发表于 2024-8-23 15:18

参与一下。。。

Sub ykcbf() '//2024.8.23
r = ActiveSheet.UsedRange.Find("*", , -4163, , 1, 2).Row
arr = Range("j13:bp" & r)
ReDim brr(1 To r, 1 To 100)
For i = 1 To UBound(arr)
Sum = 0: n = 0
For j = 1 To UBound(arr, 2)
Sum = Sum + Val(arr(i, j))
Next
If Sum Then
m = m + 1
For j = 1 To UBound(arr, 2)
If Val(arr(i, j)) Then
n = n + 1
brr(m, n) = arr(i, j)
End If
Next
End If
Next
[br13].Resize(10000, 100) = ""
[br13].Resize(m, 100) = brr
End Sub

复制代码

longwin · 发表于 2024-8-23 15:33

参与一下：
Sub test()
arr = Range("J13:BP" & ActiveSheet.UsedRange.Rows.Count)
ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))
m = 1: n = 0
For i = 1 To UBound(arr)
      If n > 0 Then m = m + 1: n = 0
      For j = 1 To UBound(arr, 2)
         If arr(i, j) <> 0 Then
            n = n + 1
            brr(m, n) = arr(i, j)
         End If
      Next
Next
[br13].Resize(UBound(brr), UBound(brr, 2)) = brr
End Sub

13602822168 · 发表于 2024-8-23 15:42

longwin 发表于 2024-8-23 15:33
参与一下：
Sub test()
arr = Range("J13:BP" & ActiveSheet.UsedRange.Rows.Count)

谢谢帮助！！感谢！！！

kyxfyzg · 发表于 2024-8-23 15:47

usedrange · 发表于 2024-8-23 15:48

Sub tt()
Dim ar, br, i%, r%, c%, bl%
ar = Range("j13:bp75")
ReDim br(1 To 100, 1 To 100)
r = 1
For i = 1 To UBound(ar)
c = 1: bl = 0
For j = 1 To UBound(ar, 2)
If ar(i, j) <> "" Then
br(r, c) = ar(i, j)
c = c + 1
bl = 1
End If
Next j
If bl Then r = r + 1
Next i
[br28].Resize(UBound(br), UBound(br, 2)) = br
End Sub

复制代码

13602822168 · 发表于 2024-8-23 15:52

kyxfyzg 发表于 2024-8-23 15:47

谢谢帮助！！

rysxing · 发表于 2024-8-23 16:10

试试。。。。。。。

13602822168 · 发表于 2024-8-23 16:14

rysxing 发表于 2024-8-23 16:10
试试。。。。。。。

感谢！！！！！！

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

[求助] 各位老师好！VBA要怎么取数，请老师们帮忙看看，谢谢！！

评分

评分

评分