Option Explicit Option Compare Text Sub 根据内容查找单元格()     Dim sSheet As Worksheet     Dim eachSheet As Worksheet     Dim findRange As Range     Dim columnCount As Integer          Set sSheet = Worksheets("数据")     '获取工作表总列数     columnCount = sSheet.UsedRange.Cells.EntireColumn.Count          For Each eachSheet In Worksheets         '只查找A1单元格所在的整行         Set findRange = sSheet.Range("A1").EntireRow.Find(eachSheet.Name, , , xlWhole)         Debug.Print findRange.Column     Next eachSheet     End Sub

Option Explicit Option Compare Text Sub 根据内容查找单元格()     Dim sSheet As Worksheet     Dim eachSheet As Worksheet     Dim findRange As Range     Dim columnCount As Integer          Set sSheet = Worksheets("Sheet2")     '获取工作表总列数     columnCount = sSheet.UsedRange.Cells.EntireColumn.Count          For Each eachSheet In Worksheets         '只查找A1单元格所在的整行         Set findRange = sSheet.Range("A1").EntireRow.Find(eachSheet.Name, , , xlWhole)         '可能找不到符合的单元格，因此使用前先判断下         If Not findRange Is Nothing Then            Debug.Print findRange.Column         End If     Next eachSheet     End Sub