有一个表A许多列,通过下列代码在表B(共两列,第一列,第二列),实现了列变成了行,选择行后,在表A实现把没选择列的隐藏,只剩选择的
Dim nms As String
Dim nms1 As String
Dim nms11 As String
Dim nms111 As String
For Each dr As Row In Tables("报表列").Rows
If dr("第一列") =True Then
nms = nms & "," & dr("第二列")
End If
Next
For Each r As Row In Tables("报表列").Rows
If nms > "" Then
r("第三列") = nms.Trim(",")
Else
r("第三列") = Nothing
End If
Next
向下如何写代码