使用表时，通常需要了解特定单元格的引用。对于某些功能或字段，Word希望使用许多读者在Excel中熟悉的列/行格式来指定单元格引用。例如，A1是左上方的单元格，B1是右侧的一个单元格，而A2是第一个单元格下方的一个单元格。

不幸的是，Word没有固有的功能来通知您所选单元格的引用。您可以通过使用宏来解决此问题。下面的示例宏将在状态栏中返回插入点所在的当前列和行。

Sub CellRef()

Const clngAOffset As Long = 64     ' Word's maximum columns is 64, but this procedure     ' can cope up to clngMaxCols columns     Const clngMaxCols As Long = 702     Dim lngRow As Long, lngCol As Long     Dim strCol As String

' See if in table     If Selection.Information(wdWithInTable) Then         ' Get column and row numbers         lngCol = Selection.Information(wdStartOfRangeColumnNumber)

lngRow = Selection.Information(wdStartOfRangeRowNumber)

' Convert column number to letter         Select Case lngCol         Case Is < 27             ' Single character column reference             strCol = Chr$(clngAOffset + lngCol)

Case Is > clngMaxCols             MsgBox "Table is too big"

Exit Sub         Case Else             ' Two-character column reference             strCol = Chr$(clngAOffset + Fix((lngCol - 1) / 26))

strCol = strCol & Chr$(CLng(clngAOffset + 1 _               + ((lngCol - 1) Mod 26)))

End Select         ' Show column, row, and cell reference in status bar         StatusBar = "Col:" & lngCol & "/Row:" & lngRow _           & " = Cellref: " & strCol & CStr(lngRow)

End If End Sub

当您运行宏时，它将以以下格式在状态栏上显示请求的信息：

Col:2/Row:1 = B1

您应注意，宏将处理具有Word本机将处理的更大维度的表。这不是任意完成的。以编程方式，返回表的第702列（ZZ）与返回第64列（BL）一样容易。

注意：

如果您想知道如何使用此页面（或_WordTips_网站上的任何其他页面）中描述的宏，我准备了一个包含有用信息的特殊页面。

点击此处在新的浏览器标签中打开该特殊页面。

_WordTips_是您进行经济有效的Microsoft Word培训的来源。

（Microsoft Word是世界上最流行的文字处理软件。）本技巧（13093）适用于Microsoft Word 2007、2010、2013、2016、2019和Office 365中的Word。 Word的旧菜单界面在这里：

查找单元格引用。