如何在Excel中获取表格上方的单元格的值

我有一个循环遍历所有表单的函数。 每个循环都有一个循环，循环遍历表格中的所有表格。

我不知道如何获取表格列标题正上方的单元格的值。

For Each sh In ActiveWorkbook.Worksheets If ActiveSheet.Name <> sh.Name And Not sh.Name = "Template" Then For Each tbl In sh.ListObjects I need those values here Next tbl End If Next sh 

Answer 1

你几乎回答了你自己的问题：

 Option Explicit Public Sub tblTitle() Dim sh As Worksheet, tbl As ListObject For Each sh In ActiveWorkbook.Worksheets If ActiveSheet.Name <> sh.Name And Not sh.Name = "Template" Then For Each tbl In sh.ListObjects With tbl.Range(1, 1) If .Row > 1 Then MsgBox .Offset(-1, 0) End With Next tbl End If Next sh End Sub 

对于下图中的表格，它将显示2条消息：“A”和“B”