各位老师好！VBA归类或者复制应该怎么写，请各位老师抽空看看，谢谢！！

13602822168

根据从EJ列开始到JE,根据第二行的数值和JG1的数值，如果相同就将EJ:JE列中相同数值的列，排在JG:JK列的位置。

另一个就归类到JS:KC的位置，谢谢各位老师。

清风竹-

请看附件。

13602822168

清风竹- 发表于 2024-9-3 13:43
请看附件。

感谢！！！！！！！！！！！感谢！！！！！！！！！！感谢！！！！！！！！！！！！

13602822168

清风竹- 发表于 2024-9-3 13:43
请看附件。

您好！如果连1,2,3行都要复制下来，要改哪里？？？？，谢谢！！

清风竹-

13602822168 发表于 2024-9-3 21:54
您好！如果连1,2,3行都要复制下来，要改哪里？？？？，谢谢！！

请看 附件。

13602822168

清风竹- 发表于 2024-9-4 08:11
请看 附件。

谢谢！但数据要对齐才可以.谢谢！！1,2,3行复制过来也排1,2,3行，谢谢！！！

清风竹-

13602822168 发表于 2024-9-4 10:26
谢谢！但数据要对齐才可以.谢谢！！

一点失误。
这句： arr = .Range("ej14:je" & UBound(a))     改为： arr = .Range("ej12:je" & UBound(a))

13602822168

清风竹- 发表于 2024-9-4 10:38
给个示例，如何对齐。

数据要同一行，谢谢！！

13602822168

清风竹- 发表于 2024-9-4 10:38
一点失误。
这句： arr = .Range("ej14:je" & UBound(a))     改为： arr = .Range("ej12:je" & UBound(a ...

谢谢！！！如果想再区分提取好像是不行的？

Sub 获取数据()
With Sheet1
a = .UsedRange
arr = .Range("ej12:je" & UBound(a))
arr1 = .Range("ej1:je3")
jG = .[jG1]
ReDim brr(1 To UBound(arr), 1 To 11)
For i = 1 To UBound(arr1, 2)
   If arr1(2, i) = jG Then
       n = n + 1
       brr(1, n) = arr1(1, i)
       brr(2, n) = arr1(2, i)
       brr(3, n) = arr1(3, i)
       For j = 5 To UBound(arr)
           brr(j, n) = arr(j, i)
       Next
    End If
Next
  .Range("jg12").Resize(UBound(arr), 11) = brr
  End With
End Sub
Sub 获取数据A()
With Sheet1
a = .UsedRange
arr = .Range("JG12:jQ" & UBound(a))
arr1 = .Range("JG1:JQ3")
jG = .[jS1]
ReDim brr(1 To UBound(arr), 1 To 11)
For i = 1 To UBound(arr1, 2)
   If arr1(2, i) = jG Then
       n = n + 1
       brr(1, n) = arr1(1, i)
       brr(2, n) = arr1(2, i)
       brr(3, n) = arr1(3, i)
       For j = 5 To UBound(arr)
           brr(j, n) = arr(j, i)
       Next
    End If
Next
  .Range("jS12").Resize(UBound(arr), 11) = brr
  End With
End Sub

清风竹-

13602822168 发表于 2024-9-4 11:39
谢谢！！！如果想再区分提取好像是不行的？

Sub 获取数据()

Sub 获取数据A()
With Sheet1
a = .UsedRange
arr = .Range("eJ12:je" & UBound(a))
arr1 = .Range("eJ1:Je3")
js = .[jS1]
ReDim brr(1 To UBound(arr), 1 To 11)
For i = 1 To UBound(arr1, 2)
   If arr1(2, i) = js Then
       n = n + 1
       brr(1, n) = arr1(1, i)
       brr(2, n) = arr1(2, i)
       brr(3, n) = arr1(3, i)
       For j = 5 To UBound(arr)
           brr(j, n) = arr(j, i)
       Next
    End If
Next
  .Range("js12").Resize(UBound(arr), 11) = brr
  End With
End Sub