【正文】 60。. = TrueEnd Sub下表演示了使用 Range 屬性的一些 A1 樣式引用。引用含義Range(A1) 單元格 A1Range(A1:B5) 從單元格 A1 到單元格 B5 的區(qū)域Range(C5:D9,G9:H16) 多塊選定區(qū)域Range(A:A)A 列Range(1:1)第一行Range(A:C)從 A 列到 C 列的區(qū)域Range(1:5)從第一行到第五行的區(qū)域Range(1:1,3:3,8:8) 第 3 和 8 行Range(A:A,C:C,F:F) A 、C 和 F 列引用行和列可用 Rows 屬性或 Columns 屬性來處理整行或整列。這兩個(gè)屬性返回代表單元格區(qū)域的 Range 對(duì)象。在下例中，Rows(1) 返回 Sheet1 上的第一行，然后將區(qū)域字體加粗。Sub RowBold()Worksheets(Sheet1).Rows(1). = TrueEnd Sub下表舉例說明了使用 Rows 和 Columns 屬性的一些行和列的引用。引用 含義Rows(1)第一行Rows 工作表上所有的行Columns(1) 第一列Columns(A) 第一列Columns工作表上所有的列若要同時(shí)處理若干行或列，可創(chuàng)建一個(gè)對(duì)象變量并使用 Union 方法，將對(duì) Rows 屬性或 Columns 屬性的多個(gè)調(diào)用組合起來。下例將活動(dòng)工作簿中第一張工作表上的第一行、第三行和第五行的字體設(shè)置為加粗。Sub SeveralRows()Worksheets(Sheet1).ActivateDim myUnion As RangeSet myUnion = Union(Rows(1), Rows(3), Rows(5)) = TrueEnd Sub使用索引號(hào)引用單元格通過使用行列索引號(hào)，可用 Cells 屬性引用單個(gè)單元格。該屬性返回代表單個(gè)單元格的 Range 對(duì)象。在下例中，Cells(6,1) 返回 Sheet1 上的單元格 A6，然后將 Value 屬性設(shè)置為 10。Sub EnterValue()Worksheets(Sheet1).Cells(6, 1).Value = 10End Sub因?yàn)榭捎米兞刻娲幪?hào)，所以 Cells 屬性非常適合于在單元格區(qū)域中循環(huán)，如下例中所示。Sub CycleThrough()Dim Counter As IntegerFor Counter = 1 To 20Worksheets(Sheet1).Cells(Counter, 3).Value = CounterNext CounterEnd Sub如果要同時(shí)更改某個(gè)區(qū)域中所有單元格的屬性（或?qū)⒎椒☉?yīng)用于該區(qū)域中的所有單元格），建議使用 Range 屬性。使用快捷表示法引用單元格可用方括號(hào)將 A1 引用樣式或命名區(qū)域括起來，作為 Range 屬性的快捷方式。這樣就不必鍵入單詞“Range”或使用引號(hào)了，如下例中所示。Sub ClearRange()Worksheets(Sheet1).[A1:B5].ClearContentsEnd SubSub SetValue()[MyRange].Value = 30End Sub使用 Range 對(duì)象引用單元格如果將對(duì)象變量設(shè)置為 Range 對(duì)象，即可用變量名輕松地操作單元格區(qū)域。以下過程將創(chuàng)建對(duì)象變量 myRange，然后將活動(dòng)工作簿中 Sheet1 上的區(qū)域 A1:D5 賦予該變量。隨后的語句用該變量名稱代替 Range 對(duì)象，以修改該區(qū)域的屬性。Sub Random()Dim myRange As RangeSet myRange = Worksheets(Sheet1).Range(A1:D5) = =RAND() = TrueEnd Sub引用命名區(qū)域用名稱比用 A1 樣式記號(hào)更容易標(biāo)識(shí)單元格區(qū)域。若要命名選定的單元格區(qū)域，請(qǐng)單擊編輯欄左端的名稱框，鍵入名稱，再按 Enter。引用命名區(qū)域以下示例引用名為“”的工作簿中名為“MyRange”的區(qū)域。Sub FormatRange()Range(!MyRange). = TrueEnd Sub以下示例引用名為“”的工作簿中特定于工作表的區(qū)域“Sheet1!Sales”。Sub FormatSales()Range([]Sheet1!Sales).BorderAround Weight:=xlthinEnd Sub要選定命名區(qū)域，可使用 GoTo 方法，該方法將激活工作簿和工作表，然后選定該區(qū)域。Sub ClearRange() Reference:=!MyRangeEnd Sub以下示例顯示對(duì)于活動(dòng)工作簿將如何編寫與上例相同的過程。Sub ClearRange() Reference:=MyRangeEnd Sub在命名區(qū)域中的單元格上循環(huán)下例用 For Each...Next 循環(huán)語句在命名區(qū)域中的每一個(gè)單元格上循環(huán)。如果該區(qū)域中的任一單元格的值超過 limit 的值，就將該單元格的顏色更改為黃色。Sub ApplyColor()Const Limit As Integer = 25For Each c In Range(MyRange)If Limit Then = 27End IfNext cEnd Sub引用多個(gè)區(qū)域使用適當(dāng)?shù)姆椒梢院苋菀椎赝瑫r(shí)引用多個(gè)單元格區(qū)域?？捎?Range 和 Union 方法引用任意組合的單元格區(qū)域；用 Areas 屬性可引用工作表上選定的一組單元格區(qū)域。使用 Range 屬性通過在兩個(gè)或多個(gè)引用之間插入逗號(hào)，可使用 Range 屬性引用多個(gè)區(qū)域。以下示例清除了 Sheet1 上三個(gè)區(qū)域的內(nèi)容。Sub ClearRanges()Worksheets(Sheet1).Range(C5:D9,G9:H16,B14:D18). _ClearContentsEnd Sub命名區(qū)域使得用 Range 屬性處理多個(gè)區(qū)域更加容易。以下示例可在所有這三個(gè)命名區(qū)域處于同一工作表時(shí)運(yùn)行。Sub ClearNamed()Range(MyRange, YourRange, HisRange).ClearContentsEnd Sub使用 Union 方法使用 Union 方法可將多個(gè)區(qū)域組合到一個(gè) Range 對(duì)象中。以下示例創(chuàng)建了名為 myMultipleRange 的 Range 對(duì)象，并將其定義為區(qū)域 A1:B2 和 C3:D4 的組合，然后將該組合區(qū)域的字體設(shè)置為加粗。Sub MultipleRange()Dim r1, r2, myMultipleRange As RangeSet r1 = Sheets(Sheet1).Range(A1:B2)Set r2 = Sheets(Sheet1).Range(C3:D4)Set myMultipleRange = Union(r1, r2) = TrueEnd Sub使用 Areas 屬性可用 Areas 屬性引用選定的單元格區(qū)域或多塊選定區(qū)域中的區(qū)域集合。下述過程計(jì)算選定區(qū)域中的塊數(shù)目，如果有多個(gè)塊，就顯示一則警告消息。Sub FindMultiple()If 1 ThenMsgBox 不能對(duì)多個(gè)選區(qū)進(jìn)行操作.End IfEnd Sub處理三維區(qū)域如果要處理若干工作表上相同位置的單元格區(qū)域，可用 Array 函數(shù)選定兩張或多張工作表。下例設(shè)置三維單元格區(qū)域的邊框格式。Sub FormatSheets()Sheets(Array(Sheet2, Sheet3, Sheet5)).SelectRange(A1:H1).Select(xlBottom).LineStyle = xlDoubleEnd Sub下例應(yīng)用 FillAcrossSheets 方法，將 Sheet2 上的區(qū)域中的格式和所有數(shù)據(jù)傳送到活動(dòng)工作簿中所有工作表上的相應(yīng)區(qū)域。Sub FillAll()Worksheets(Sheet2).Range(A1:H1) _.Borders(xlBottom).LineStyle = xlDouble (Worksheets(Sheet2) _.Range(A1:H1))End Sub自編小tool1Sub 分列()39。39。 分列 Macro39。 宏由 guanerxiang 錄制，時(shí)間: 20076539。39。 快捷鍵: Ctrl+e39。 Columns().Select Destination:=ActiveCell, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar:=_, TrailingMinusNumbers:=TrueEnd SubSub tianchong()39。39。 tianchong Macro39。39。 快捷鍵: Ctrl+e39。 xcolum = yrow = For i = 2 To 1048570 If i = Then Exit For Else If Cells(i, ) = Then Cells(i, ) = Cells(i 1, ) End If Next i End Sub統(tǒng)計(jì)Q2字符串中“|”字符的個(gè)數(shù)，可以用下面的函數(shù)：LEN(Q2)LEN(SUBSTITUTE(Q2,|,)) 把代碼放到當(dāng)前工作表的改變事件中： PrivateSubWorksheet_Change(ByValTargetAsRange) EndSub Target代表被改變的區(qū)域?？梢允嵌鄠€(gè)單元格。 例如將更改的單元格的顏色設(shè)為藍(lán)色。 PrivateSubWorksheet_Change(ByValTargetasRange) =5 EndSub執(zhí)行+1前 =False 執(zhí)行+1后 =True創(chuàng)建工具欄的代碼這里的代碼假定有一個(gè)帶有兩個(gè)名為Macro1和Macro2宏的工作簿，并且在該工作簿打開時(shí)創(chuàng)建這個(gè)工具欄，在關(guān)閉該工作簿時(shí)刪除這個(gè)工具欄。注意，與Ribbon定制不同，不管當(dāng)前是哪個(gè)工作簿，自定義工具欄者是可見的。在ThisWorkbook代碼模塊中，輸入下面的過程。第一個(gè)過程為在打開工作簿時(shí)調(diào)用創(chuàng)建工具欄的過程，第二個(gè)過程為在關(guān)閉工作簿時(shí)調(diào)用刪除工具欄的過程。Private Sub Workbook_Open()Call CreateToolbarEnd SubPrivate Sub Workbook_BeforeClose(Cancel As Boolean)Call DeleteToolbarEnd Sub 過程CreateToolbar的代碼如下:Const TOO