恳请大师们帮忙看下这个难题我要咋修改呢

qiongmei6

我想求得一个代码，当他执行的时候，他找出k列中有“聘用工”那行中的g：n，显示在w：ad列，目前的w：ad列就是我希望代码执行后得到的结果，ykcbf1100等几个大师提供了代码，可以解决这个k列中有“聘用工”的，但是如果k列中如果没有“聘用工”这个代码就会提示定义错误，因此我就修改代码成如果k列中有“聘用工”，则能将k列中有“聘用工”那行中的g：n，提取到w：ad列，如果没有聘用工则退出这个代码的执行，这样就不会出现错误的提示了，因此我增加这个代码
For i = 3 To 1000
  If Cells(i, 11) <> "聘用工" Then
Exit Sub
End If
Next i
但是修改后代码竟然不起作用了，恳请大师们帮忙看下要咋修改

quqiyuan

参与一下，仅供参考。。。

quqiyuan

代码如下。。。
Sub ykcbf()   '//2024.9.4
    With Sheets("个税")
        r = .Cells(Rows.Count, "h").End(3).Row
        arr = .[g1].Resize(r, 8)
        ReDim brr(1 To r, 1 To 8)
        For i = 3 To UBound(arr)
            If arr(i, 5) = "聘用工" Then
                m = m + 1
                For j = 1 To UBound(arr, 2)
                    brr(m, j) = arr(i, j)
                Next
            End If
        Next
        If m Then .[w1].Resize(m, 8) = brr
    End With
End Sub

ww87725244

加一个IF判断一下就好了
因为k列中都没有“聘用工”的话，m为空，所以报错
If m <> "" Then
    .[w1].Resize(m, 8) = brr
End If

jaxxcyh

1. Sub ykcbf()   '//2024.9.4
   
2.     With Sheets("个税")
   
3.         r = .Cells(Rows.Count, "h").End(3).Row
   
4.         arr = .[g1].Resize(r, 8)
   
5.         ReDim brr(1 To r, 1 To 8)
   
6.         m = 1
   
7.         For i = 3 To UBound(arr)
   
8.             If arr(i, 5) = "聘用工" Then
   
9.                 For j = 1 To UBound(arr, 2)
   
10.                     brr(m, j) = arr(i, j)
    
11.                 Next
    
12.                 m = m + 1
    
13.             End If
    
14.         Next
    
15.         .[w1].Resize(m, 8) = brr
    
16.     End With
    
17. End Sub

复制代码