Set yRan = Sheets("首页").UsedRange.Find("登录名")'查找包含值 登录名 的所有单元格

Set yran2 = Sheets("系统表").UsedRange.Find("用户名称")~

ActiveWorkbook.Sheets(i).Name

'如果结果放在 "汇总表"的A列
sub test()
for each sh in sheets
rw = 1 '从A1开始显示

if sh.name"汇总表" then
if f1(sh) then
sheets("汇总表").range("A" & rw) = sh.name
rw = rw +1
end if

end if
next
end sub

function f1(sh as worksheet) as boolean
on error goto l_end
a = sh.range("1:65536").find("中国人",lookin:=xlvalues,lookat:=xlpart)
f1=true
exit function
l_end:
f1 = false
end function


'执行 test 就可以了

Private Sub CommandButton1_Click()'绝对查找

Dim FindStrinG As String
Dim rng As Range
FindStrinG = InputBox("请输入要查找的值")
If Trim(FindStrinG) <> "" Then
With Sheets("Sheet1").Range("A:f")
Set rng = .Find(What:=FindStrinG, After:=.Cells(1), LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlPrevio, MatchCase:=False)
If Not rng Is Nothing Then
Application.Goto rng, True
Else
MsgBox "Nothing found"
End If
End With
MsgBox "所在行号是：" & rng.Row & "所在列标是：" & rng.Column
End If

---

宝丰县17323686393： Set yRan = Sheets(＂首页＂).UsedRange.Find(＂登录名＂)'查找包含值 登录名 的所有单元格 - ？
席冠贝复： 我是来看评论的

宝丰县17323686393： 运行VBA提示错误:应用程序定义或对象定义错误 - ？
席冠贝复： 在你的代码中 i 没有定义.看下面这一段 If n Mod 2 = 0 Then i = 1 + WorksheetFunction.RoundUp(n / 2, 0) + WorksheetFunction.RoundDown((m - 1) / 5, 0) * 4 j = m Mod 5 If j = 0 Then j = 5 End If End If Sheets(＂sheet5＂).Cells(m, n) = Sheets(＂...

宝丰县17323686393： EXCEL 同个工作薄如何批量超链接,即在目录表里点页码Sheet1、Sheet2、Sheet3,即可跳到相应的工作表 - ？
席冠贝复： 按ALT+F11,然后选你的工作表,把下面的代码粘贴进去,然后回到EXCEL中按ALT+F8,执行宏Content即可 Sub Content() '创建目录 ' Set NewSheet = Sheets.Add(before:=Sheets(1), Type:=xlWorksheet)NewSheet.Name = ＂Content＂...

宝丰县17323686393： excel宏,如何将数百个工作簿的中指定数据汇总到一个新工作簿的新工作表.请高手指教 - ？
席冠贝复： Sub 合并选定工作簿的第一个工作表() '功能:合并某文件下所有Excel工作簿中的第一个工作表 '使用:将要合并的工作簿拷贝到某文件夹下,新建一个工作簿后执行该宏 Dim WBName As String '汇总工作簿名称 Dim WBCurrent As String '当...

宝丰县17323686393： Set a = Sheets(＂Sheet1＂).[G2]这一句放在哪里啊? - ？
席冠贝复： 看似VBA的语句,在模块中、form中、class,都可以

宝丰县17323686393： excel中怎样用变量代替工作表名称 - ？
席冠贝复： set s = sheets(i)或set s = sheets(＂sheet＂ & i)区别:前者是它的索引号(该工作表在当前工作簿中的排序,与工作表名称无关)后者是它的名称

宝丰县17323686393： Set myrange = Sheets(＂sheet2＂).Range(＂A3:A30＂).Find(what:=n) 如果没找到 那myrange里赋的什么值? - ？
席冠贝复： 如果没找到,那么myrange is nothing

宝丰县17323686393： 怎么给excel按目录顺序批量插入工作表？
席冠贝复： 假设有一个名为“目录”的工作表,在其A1:A10中有各个具体的目录名字. 按ALT+F11打开VBA窗口,插入一个模块,把下面代码复制进去. Sub 插入目录() Sheets(＂目录＂).Select Sheets(1).Select For i = 1 To 10 '根据10个目录生成10...

宝丰县17323686393： EXCEL用宏如何选择工作薄中的SHEET1中的D3单元格的内容做为文件名,并且只存SHEET1和SHEET2指定的工作表 - ？
席冠贝复： sub rename()for i =1 to sheets.countsheets(i).name=sheets(i).cells(3,4).valuenext i end sub上面是改所有工作表的.如果只改SHEET1 和SHEET2的 sub rename()sheets(＂sheet1＂).name=sheets(＂sheet1＂).cells(3,4).valuesheets(＂sheet2＂).name=sheets(＂sheet2＂).cells(3,4).value end sub

宝丰县17323686393： excel工作表排序 - ？
席冠贝复： 如果你是排工作表的内容,就按以下方法: 数据->排序->选择你要按哪栏去排->勾上＂有标题行＂->OK 如果你是排工作表的话,只能移动吧.