主题：[求助]跨表引用列数据

Dim s As String = "列"
Dim str As String = ""
For Each c As Col In Tables("表A").Cols
    If c.Caption.Contains(s) Then
        str &= c.Caption & ","
    End If
Next
msgbox(str.trim(","))

不理解你的意思。上传实例说明需要得到的效果。