[已解决]vba查找如何得到列号呀？不是数字

sblisb

想查找得到列号，怎么做？
我这个文件怎么提示“对象变量或 With 块变量没有设置” test.rar (8.62 KB, 下载次数: 11)

2014-10-19 12:45 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

qh8600

2014-10-19 13:18

1. Sub demo()
   
2.     Dim rng As Range, a As String
   
3.     For Each rng In Range("a1:ac1")
   
4.         If InStr(rng.Value, "蓄积") Then
   
5.             a = Split(rng.Address, "$")(1)
   
6.             MsgBox a
   
7.         End If
   
8.     Next
   
9. End Sub

复制代码

test.rar (7.47 KB, 下载次数: 39)

2014-10-19 13:21 上传

点击文件名下载附件

跳转到最佳答案楼层

qh8600

for each rng in 单元格区域
判断语句
next

qh8600

1. Sub demo()
   
2.     Dim rng As Range, a As String
   
3.     For Each rng In Range("a1:ac1")
   
4.         If InStr(rng.Value, "蓄积") Then
   
5.             a = Split(rng.Address, "$")(1)
   
6.             MsgBox a
   
7.         End If
   
8.     Next
   
9. End Sub

复制代码

test.rar (7.47 KB, 下载次数: 39)

2014-10-19 13:21 上传

点击文件名下载附件

dsmch

Set a = Range("A1:Aa3").Find("蓄积", , , xlPart) '查找到含有"蓄积"的单元格
range(a.Column & xRow) 应改为 Cells(a.Column, xRow)

qh8600

dsmch 发表于 2014-10-19 13:44
Set a = Range("A1:Aa3").Find("蓄积", , , xlPart) '查找到含有"蓄积"的单元格
range(a.Column & xRow) 应 ...

学习了，谢谢指点{:112:}

su45

对 Find ，应用set 赋值