[已解决]求助：4个问题（有vba的）请大家帮忙了！！！！！！！

CEL_hjl

求助：1、工作薄中想引用单元格数据，最简单的例如：直接可以输入“=A1”，但是用其他公式引用后就只能是“=A&1”不能指向单元格，怎么办？
2、还有3个问题请看附件，你能回答哪个就说哪个，麻烦大家了。
关于3个引用的问题 Excel 97-2003 工作表.rar (3.92 KB, 下载次数: 16)

2013-9-15 23:40 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-9-15 23:58

=a&1，要起指向单元格的话，得=indirect("a" & 1)

跳转到最佳答案楼层

hwc2ycy

=a&1，要起指向单元格的话，得=indirect("a" & 1)

CEL_hjl

hwc2ycy 发表于 2013-9-15 23:58
=a&1，要起指向单元格的话，得=indirect("a" & 1)

第一个问题对了谢谢

hwc2ycy

试了下RANGE的FIND方法，用数组的话，效率应该更高。

1. Sub findA()
   
2.     Dim rg1 As Range, rg2 As Range
   
3.     Dim arr(1 To 1000, 1 To 2), lCount As Integer
   
4. 
   
5.     On Error Resume Next
   
6.     With Worksheets("sheet1")
   
7.         Set rg1 = .UsedRange.Find(what:="A", lookat:=xlWhole)    '查找内容
   
8.         Set rg2 = rg1
   
9. 
   
10.         Do While Not rg1 Is Nothing
    
11.             Debug.Print rg1.Address
    
12.             lCount = lCount + 1
    
13.             arr(lCount, 1) = "A"
    
14.             arr(lCount, 2) = rg1.Offset(, 1).Value
    
15.             Set rg1 = .UsedRange.FindNext(after:=rg1)
    
16.             'f rg1.Address = rg2.Address Then Set rg1 = Nothing
    
17.         Loop
    
18.     End With
    
19. 
    
20.     If lCount Then
    
21.         With Worksheets("A")
    
22.             .Range("a2").Resize(lCount, 2).Value = arr
    
23.         End With
    
24.         MsgBox "提取完成"
    
25.     Else
    
26.         MsgBox "没有找到匹配的数据"
    
27.     End If
    
28. End Sub

复制代码

hwc2ycy

数组法

1. Sub FindInarr()
   
2.     Dim arr, result(1 To 1000, 1 To 2)
   
3.     Dim i As Long, j As Long
   
4.     Dim lCount As Long
   
5. 
   
6.     On Error GoTo ErrorHandler
   
7. 
   
8.     With Worksheets("sheet1")
   
9.         arr = .Range(.Range("a2"), .Cells(Rows.Count, "f").End(xlUp)).Value
   
10.     End With
    
11. 
    
12.     For i = LBound(arr) To UBound(arr)
    
13.         For j = LBound(arr, 2) To UBound(arr, 2) Step 2
    
14.             If arr(i, j) = "A" Then
    
15.                 lCount = lCount + 1
    
16.                 result(lCount, 1) = "A"
    
17.                 result(lCount, 2) = arr(i, j + 1)
    
18.             End If
    
19.         Next
    
20.     Next
    
21. 
    
22.     If lCount Then
    
23.         With Worksheets("A")
    
24.             .Range("a2").Resize(lCount, 2).Value = result
    
25.         End With
    
26.         MsgBox "提取完成", vbInformation
    
27.     Else
    
28.         MsgBox "没有匹配的数据", vbCritical
    
29.     End If
    
30.     Exit Sub
    
31. ErrorHandler:
    
32.     MsgBox Err.Number & vbCrLf & Err.Description
    
33. End Sub

复制代码

hwc2ycy

result(1 To 1000, 1 To 2)
这里数组只定义了1000行，如果你实际应用中，预测查到的数据项个数大于1000时，只需把1000改大即可。