加行号，搞不掂，求指点！！！

1657232430

如上图所示：为A例空的单元格加上行号
在现有代码上，如何修改？请各位指点！！！！
代码如下：
Sub test()
  Dim r%, i%
  Dim arr, brr
  With Worksheets("源数据")
    r = .Cells(.Rows.Count, 1).End(xlUp).Row
    arr = .Range("b2:e" & r)
    ReDim brr(1 To UBound(arr), 1 To 4)
    m = 0
    For i = 1 To UBound(arr)
      If arr(i, 2) = "足金3D硬金" Then
        m = m + 1

        brr(m, 2) = arr(i, 2)
        brr(m, 3) = arr(i, 3)
        brr(m, 4) = arr(i, 4)
        brr(m, 1) = arr(i, 1)
      End If
    Next
  End With
  With Worksheets("入库单")
    Sheet1.Range("b5:j50").ClearContents
    .Range("B5").Resize(UBound(brr), UBound(brr, 2)) = brr

  End With

End Sub

shoot82003

1. =row()
   

复制代码

1657232430

广西府 发表于 2020-1-10 10:48
Sub test705664849()
  Dim r%, i%
  Dim arr, brr

谢谢！我怎么这么笨！
另：下面的代码，如果要简化，应该怎么写？
Private Sub CommandButton2_Click()
Dim r%, i%
  Dim arr, brr
  With Worksheets("源数据")
    r = .Cells(.Rows.Count, 1).End(xlUp).Row
    arr = .Range("b2:e" & r)
    ReDim brr(1 To UBound(arr), 1 To 4)
    m = 0
    For i = 1 To UBound(arr)
      If arr(i, 2) = "足金项链" Then
        m = m + 1
        brr(m, 2) = arr(i, 2)
        brr(m, 3) = arr(i, 3)
        brr(m, 4) = arr(i, 4)
        brr(m, 1) = arr(i, 1)
      End If
      
       If arr(i, 2) = "足金手镯" Then
        m = m + 1
        brr(m, 2) = arr(i, 2)
        brr(m, 3) = arr(i, 3)
        brr(m, 4) = arr(i, 4)
        brr(m, 1) = arr(i, 1)
      End If
      
      If arr(i, 2) = "足金戒指" Then
        m = m + 1
        brr(m, 2) = arr(i, 2)
        brr(m, 3) = arr(i, 3)
        brr(m, 4) = arr(i, 4)
        brr(m, 1) = arr(i, 1)
      End If
      
      If arr(i, 2) = "足金吊坠" Then
        m = m + 1
        brr(m, 2) = arr(i, 2)
        brr(m, 3) = arr(i, 3)
        brr(m, 4) = arr(i, 4)
        brr(m, 1) = arr(i, 1)
      End If
      
      If arr(i, 2) = "足金金条" Then
        m = m + 1
        brr(m, 2) = arr(i, 2)
        brr(m, 3) = arr(i, 3)
        brr(m, 4) = arr(i, 4)
        brr(m, 1) = arr(i, 1)
      End If
      
       If arr(i, 2) = "古法金" Then
        m = m + 1
        brr(m, 2) = arr(i, 2)
        brr(m, 3) = arr(i, 3)
        brr(m, 4) = arr(i, 4)
        brr(m, 1) = arr(i, 1)
      End If
      
    Next
  End With
  With Worksheets("入库单")
    Sheet1.Range("b5:j50").ClearContents
    .Range("B5").Resize(UBound(brr), UBound(brr, 2)) = brr
   
  End With
End Sub

YZC51

请参考
Sub te2st()
  Dim r%, i%
  Dim arr, brr
  With Worksheets("源数据")
    r = .Cells(.Rows.Count, 1).End(xlUp).Row
    arr = .Range("b2:e" & r)
    ReDim brr(1 To UBound(arr), 1 To 5)
    m = 0
    For i = 1 To UBound(arr)
      If arr(i, 2) = "足金3D硬金" Then
        m = m + 1
        brr(m, 1) = m
        
        brr(m, 2) = arr(i, 1)
        brr(m, 3) = arr(i, 2)
        brr(m, 4) = arr(i, 3)
        brr(m, 5) = arr(i, 4)
      End If
    Next
  End With
  With Worksheets("入库单")
    Sheet1.Range("b5:j50").ClearContents
    .Range("A5").Resize(UBound(brr), UBound(brr, 2)) = brr
  End With
  
End Sub

1657232430

YZC51 发表于 2020-1-10 11:05
请参考
Sub te2st()
  Dim r%, i%

brr(m, 1) = m  学会了！谢谢哈！！！！
在本例中：
If arr(i, 3) = "足金手镯"&"足金手镯"&"足金吊坠"&"足金戒指" 这句代码怎么写才正确？

YZC51

1657232430 发表于 2020-1-10 11:09
brr(m, 1) = m  学会了！谢谢哈！！！！
在本例中：
If arr(i, 3) = "足金手镯"&"足金手镯"&"足金吊坠" ...

请参考
    Dim r%, i%
    Dim arr, brr
    With Worksheets("源数据")
        r = .Cells(.Rows.Count, 1).End(xlUp).Row
        arr = .Range("b2:e" & r)
        ReDim brr(1 To UBound(arr), 1 To 5)
        m = 0
        For i = 1 To UBound(arr)
            If arr(i, 3) = "999‰" And InStr(arr(i, 2), "3D") = 0 Then
                m = m + 1
                brr(m, 1) = m
                brr(m, 2) = arr(i, 1)
                brr(m, 3) = arr(i, 2)
                brr(m, 4) = arr(i, 3)
                brr(m, 5) = arr(i, 4)
            End If
        Next
    End With
    With Worksheets("入库单")
        .Range("A5:j50").ClearContents
        .Range("A5").Resize(UBound(brr), UBound(brr, 2)) = brr
         myr = .[c65536].End(xlUp).Row
        .Cells(myr + 1, 2) = "合计"
        .Cells(myr + 1, 5) = Application.Sum(.Range("e5:e" & myr))
    End With
End Sub