[已解决]如何取出数组在原来的单元格的地址（行数与列数）

不解木野狐

1. 
   
2. Sub 数组法填充背景色()
   
3.     Dim ARR, ARR1, X, Y, Z
   
4.     ARR = Application.InputBox("请输入单元格区域", Type:=8)
   
5.       For X = 1 To UBound(ARR)
   
6.          For Y = 1 To UBound(ARR, 2)
   
7.              If ARR(X, Y) = 50 Then
   
8.                  Range("A1") = "我的问题是" '我想做的是取出数组在原来的单元格的地址（行数与列数）
   
9.              End If
   
10.          Next
    
11.       Next
    
12.       Stop
    
13. End Sub
    

复制代码

想开发一个数组法填充背景色的通用代码来着，我的思路是先用INPUTBOX函数选择单元格区域（这个区域是不定的）并同时生成了一个数组，循环依次判断此数组所有的元素，如果等于某一个条件，那么就取出此元素在工作表的位置，各位老师，我的问题就是如何取出符合条件的元素在单元格的位置，帮帮我吧{:4512:}

最佳答案

月排行榜 / 总排行榜

兰色幻想

2012-2-5 13:22

Sub 数组法填充背景色()
    Dim ARR, ARR1, X, Y, Z
    Dim rg As Range, r, c
    Set rg = Application.InputBox("请输入单元格区域", Type:=8)
    r = rg.Row
    c = rg.Column
    ARR = rg
      For X = 1 To UBound(ARR)
         For Y = 1 To UBound(ARR, 2)
             If ARR(X, Y) = 50 Then
                 Range("A1") = Cells(X + r - 1, Y + c - 1).Address '我想做的是取出数组在原来的单元格的地址（行数与列数）
             End If
         Next
      Next
      Stop
End Sub

跳转到最佳答案楼层

linch92413

Sub 数组法填充背景色()
    Dim ARR, X, Y
    Dim rg As Range, rg1 As Range
    Set rg = Application.InputBox("请输入单元格区域", Type:=8)
    ARR = rg
    r = rg.Row
    c = rg.Column
      For X = 1 To UBound(ARR)
         For Y = 1 To UBound(ARR, 2)
             If ARR(X, Y) = 50 Then
                 If rg1 Is Nothing Then Set rg1 = Cells(X + r - 1, Y + c - 1)
                 Set rg1 = Union(rg1, Cells(X + r - 1, Y + c - 1))
             End If
         Next Y
      Next X
      rg1.Interior.ColorIndex = 3
End Sub

兰色幻想

Sub 数组法填充背景色()
    Dim ARR, ARR1, X, Y, Z
    Dim rg As Range, r, c
    Set rg = Application.InputBox("请输入单元格区域", Type:=8)
    r = rg.Row
    c = rg.Column
    ARR = rg
      For X = 1 To UBound(ARR)
         For Y = 1 To UBound(ARR, 2)
             If ARR(X, Y) = 50 Then
                 Range("A1") = Cells(X + r - 1, Y + c - 1).Address '我想做的是取出数组在原来的单元格的地址（行数与列数）
             End If
         Next
      Next
      Stop
End Sub

fjmxwrs

学习了。
在校长的基础上改为

1. Sub 数组法填充背景色()
   
2. Dim ARR, ARR1, X, Y, Z
   
3. Dim rg As Range, r, c
   
4. Set rg = Application.InputBox("请输入单元格区域", Type:=8)
   
5. r = rg.Row
   
6. c = rg.Column
   
7. rg.Interior.ColorIndex = xlNone '清除原背景颜色
   
8. ARR = rg
   
9. For X = 1 To UBound(ARR)
   
10. For Y = 1 To UBound(ARR, 2)
    
11. If ARR(X, Y) = 50 Then
    
12. Cells(X + r - 1, Y + c - 1).Interior.ColorIndex = 6 '直接填充颜色
    
13. End If
    
14. Next
    
15. Next
    
16. End Sub

复制代码

chendaren

学习来了，谢谢哈

zjyxp

原来数据区域要有数据的，终于看明白了