[已解决]请问VBA如何根据文字返回数据？

chrislt52346

SHEEF2中有很多个“总金额”它们的所在单元格没有规律性。请问如何提取出所有“总金额”右一的单元格的数据？

最佳答案

月排行榜 / 总排行榜

avel

2014-5-28 16:59

1. Sub l()
   
2.     Dim rng As Range
   
3.     Dim fa As String
   
4.     Dim jg(1 To 1000, 1 To 3)
   
5.     Dim k As Integer
   
6.     Set rng =sheet2.Cells.Find("总金额", , , 1)
   
7.     If Not rng Is Nothing Then
   
8.         fa = rng.Address
   
9.         Do
   
10.             k = k + 1
    
11.             jg(k, 1) = k
    
12.             jg(k, 2) = rng.Address
    
13.             jg(k, 3) = rng.Offset(, 1).Value
    
14.             Set rng = sheet2.Cells.FindNext(rng)
    
15.         Loop While Not rng Is Nothing And fa <> rng.Address
    
16.     End If
    
17.     sheet3.[a1].Resize(k, 3).Value = jg
    
18. End Sub
    

复制代码

跳转到最佳答案楼层

youfang

列数加1

avel

1. Sub l()
   
2.     Dim rng As Range
   
3.     Dim fa As String
   
4.     Dim jg(1 To 1000, 1 To 3)
   
5.     Dim k As Integer
   
6.     Set rng =sheet2.Cells.Find("总金额", , , 1)
   
7.     If Not rng Is Nothing Then
   
8.         fa = rng.Address
   
9.         Do
   
10.             k = k + 1
    
11.             jg(k, 1) = k
    
12.             jg(k, 2) = rng.Address
    
13.             jg(k, 3) = rng.Offset(, 1).Value
    
14.             Set rng = sheet2.Cells.FindNext(rng)
    
15.         Loop While Not rng Is Nothing And fa <> rng.Address
    
16.     End If
    
17.     sheet3.[a1].Resize(k, 3).Value = jg
    
18. End Sub
    

复制代码