EXCEL难题一网打尽.docVIP

EXCEL难题一网打尽（续） 能不能做到让符合条件的单元格所在的列自动隐藏比如说第一行的第一个单元格=1那么就自动隐藏第一行？解答用vba。 Sub 隐藏()for i=1 to x x--行号 if sheets(1).cells(i,1)=1 then Rows(i).Select Selection.EntireRow.Hidden = True end if next i直接输入一组数如“20020213101235”后，自动转换成日期格式解答：A1中输入，B1中转换。。B1=Left(A1,4)—MID(A1,5,2)—MID(A1,7,2) MID(A1,9,2):MID(A1,11,2):MID(A1,13,2) 把sheet1到sheet200的a19这一格，依序贴到sheet0的a1到a200解答：方法一：公式 可在A1储存格输入以下公式，再行拖曳至A200即可。 =INDIRECT(SheetROW()!A19) 方法二：VBA Sub Macro1() 选择工作表 sheet0 Sheets(sheet0).Select For r = 1 To 200 将工作表 1~200 里面的 D17 复制到 sheet0 的 A1~A200 Cells(r, 1) = Worksheets(CStr(r)).Range(D1