Question

求大神耐心解答VBA问题 在线等

求一段代码定义i 条件为：在所有工作表的 第五行中， 单元格内容为“ABC”的列
的列序号

Answer 1

Sub a()

Dim a, b, i()

For a = 1 To Worksheets.Count

ReDim Preserve i(a - 1)

For b = 1 To Sheets(a).Range("IV5").End(xlToLeft).Column

If Sheets(a).Cells(5, b) = "ABC" Then i(a - 1) = b: Exit For

Next

Next

End Sub

1. 从第一张表开始找，有几张表，数组i就有几个元素

2. 每行的范围是从第1列到第256列（IV列）往左的第一个非空单元格

3. 找到第1个“ABC”，就放进数组i，然后退出，进行下一张表

追问

这个思路好，太谢谢了

Answer 2

i是循环变量，x是返回的列序号
For i = 1 To Cells(5, 1).End(xlToRight).Column
If Cells(5, i) = "ABC" Then
x = Cells(5, i).Column
End If
Next i

Answer 3

列序号是用字母表示法？还是数字表示法？

追问

不用管列序号了，k = Sheets(1).UsedRange.Rows.Count + 1
就比如说这句是定义K为多少行，想要一个 满足标题条件来定义的i的表达式

追答

Dim Sht as WorkSheet,Rng as Range,i as long
for each Sht in ThisWorkbook
    for each Rng in Sht.Rows(5)
        if Rng.Value="ABC" then i=Rng.Column
    next
next

Dim Sht As Worksheet, Rng As Range, i As Long
For Each Sht In ThisWorkbook
    For Each Rng In Application.Intersect(Sht.UsedRange, Sht.Rows(5))'优化了此句
        If Rng.Value = "ABC" Then i = Rng.Column
    Next
Next

追问

啊 太谢谢了