Private Sub Worksheet_Change(ByVal Target As Range)If Target.Address = "$A$1" And Target.Value = 1 ThenTarget.EntireColumn.Hidden = TrueEnd IfEnd Sub实例: (提取码 2c8c9a3c) http://mail.qq.com/cgi-bin/exs_download?uin=345930589&svrid=267&fid=e336049468951a7d3ea4bda0fc7402aaf77d9626607770bf&&txf_fid=39f01fcaf5d35fbb5d4a85f7c34f13388f8c68ff&&txf_sid=a73b80ee12e11debd0887c20ac2b3c258898c7d0&code=2c8c9a3c&k=656333369b98aa7c9a94aa7d31613764236561348a6761308e60373418326161437300417d02177400157671127450432376167402117d0c137b781073541227034027704c1c0d43