VBA, 点击单元格时, 显示某列, 再次点击时,隐藏该列

您可以使用以下VBA代码来实现您的需求：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Target.Column = [列号] Then '将[列号]替换为您要显示/隐藏的列的列号
        If Columns([列号]).Hidden = True Then
            Columns([列号]).Hidden = False
        Else
            Columns([列号]).Hidden = True
        End If
    End If

End Sub

将代码中的[列号]替换为您要显示/隐藏的列的列号，然后将代码复制粘贴到您的工作表的代码模块中。这样，当您单击该列中的任何单元格时，将显示/隐藏该列。