vba如何遍歷所有單元格？VBA遍歷所有細(xì)胞。Sub test() Dim str Dim i，j i1 j 1 For R1 To Worksheets(2 For C1 To Worksheets

vba如何遍歷所有單元格？

VBA遍歷所有細(xì)胞。

Sub test() Dim str Dim i，j i1 j 1 For R1 To Worksheets(2 For C1 To Worksheets(2)str Worksheets(2)。單元格(r，c)。價值工作表(3)。單元格(j，1)。價值I工作表(3)。單元格(j，2)。價值c工作表(3)。單元格(j，3)。值字符串J1NEXT II1NEXT End Sub刪除shape subtest()dim sheet as worksheet dim s as shape dim I as integer for each s in for in i1 n

excel中指定幾列為0時隱藏該行？

這是我和VBA一起編程的一個例子:

假設(shè)您的表格放在當(dāng)前頁面上，從第一行開始連續(xù)有n行。需要判斷第m列的單元格是零還是空，如果單元格是零，則自動隱藏該行。

使用快捷鍵時，VBA會根據(jù)M列是否為零，自動隱藏或保持整個表格每行的原始狀態(tài)。)

在EXCEL中選擇菜單工具-宏-記錄新宏，建立快捷鍵調(diào)用的VBA模塊，然后進(jìn)入VBA編輯窗口，將以下語句添加到VBA模塊中。

Sub ZZZ() ZZZ Macro宏記錄2008年5月30日由CNYIZHO鍵盤Shortcut: Ctrl Shift NM 1；指定活動工作表中的列號。[A1]取本表中有效非空行數(shù)(指有數(shù)據(jù)的連續(xù)行)。

如果單元格(I，M)為空，那么如果行I的列M中的單元格值為0或空白，則它將是隱藏的行(I)。如果是下一個sub，隱藏第一行。