在表格中想查找第某列的文本,然后返回文本相应的首列数据。

[复制链接]
查看11 | 回复1 | 2013-6-19 12:43:38 | 显示全部楼层 |阅读模式
Sub m搜索()
'测试
MsgBox (m搜索xx的列标题(1, 3, "六"))End Sub'3个参数:nSheet 第几个工作表;n列 查找第几列;c搜索字 查找什么Function m搜索xx的列标题(ByVal nSheet As Integer, ByVal n列 As Integer, ByVal c搜索字 As String) As String
Dim i As Long, n As Long, l找到 As Boolean
n = Sheets(nSh...
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行