VBA-对象-Range

excel最大行列数总结：
在 Excel 2010 和 Excel 2007 中，工作表的大小为 16,384 列 × 1,048,576 行
在 Excel 97-2003 中，工作表的大小为 256 列 × 65,536 行。
超出最大行列数单元格中的数据将会丢失。

Excel2003版最大行数是65536行。Excel2007开始的版本最大行数是1048576行。
Excel2003的最大列数是256列，2007以上版本是16384列。

----------------------------------------------------------------

范围指定
速度最快的的是 Cells(1,1) ,其次是 Range("A1"), 最慢是 [A1]

用 Range(cell1, cell2) 返回一个 Range 对象

Worksheets("Sheet2").Activate
Worksheets("Sheet2").Range("D4").Value = "Excel VBA"
Worksheets("Sheet2").Cells(5, 5).Value = "Excel VBA"

Set sht = Worksheets("Parameter")
Set rng = sht.Range("B2:C20")

Range("A3:D5").Value = "Excel VBA入门"
Range("A3", "D5").Value = "Excel VBA入门"

Cells( i , 2 ) 
Cells( i , "B")

Range("a1", "c5") 选择A1到C5单元格
Range("a1: c5") 选择A1到C5单元格
Range("a1: c5,e5:g6")选择A1到C5单元格和E5到G6两个不连续的区域
Range("1:1")选择第一行
Range("a:a")选择第A列

arr = Sheet2.UsedRange
For i = 1 To UBound(arr)
    For j = 1 To UBound(arr, 2)
        arr(i, j)
    Next
Next

------------------------------------------------------------
选择非空单元格

选择a到f列的非空单元格
Range("a1", Range("f1").End(xlDown))

这个返回的是行号：是连续使用的行号，如果中间空行，则只算中断前的这部分
Range("f1").End(xlDown)

Range(Range("A1"), Range("A100").End(xlUp))
end(xlup),这个表示的是a100往上的非空单元格

从后往前数，才能找到最后一行使用的单元格
usedRows = Worksheets("").Range("A1048576").End(xlUp).Row

选择全部数据
Sub rangeTest()
    Dim endNumber As Integer
    endNumber = Application.WorksheetFunction.CountA(Sheet1.Range("a:a"))
    Range("a1", Range("a" & endNumber).End(xlToRight)).Select
End Sub

使用过的范围
所有表格的行总数activesheet.cells.rows.count
使用过的： activesheet.usedrange.raws.count

xlDown
xlToRight
xlToLeft
xlUp

-------------------------------------------------------------
offset

offset(|A| , |B|) : 以选择单元格为起点，向下挪移A个单元格，向右挪移B个单元格。
offset(-|A| , -|B|) : 以选择单元格为起点，向上挪移A个单元格，想左挪移B个单元格。

Range("a1").End(xlDown).Offset(1, 0).Select

-------------------------------------------------------------
行列插入

rows(2).insert shift:=xlup 在第二行处插入一行

复制并插入
ActiveSheet.Rows(1).Copy
ActiveSheet.Rows(2).Insert Shift:=xlDown

隔行插入
For i = 1 To 20
    Cells(1, 2 * i).Select
    Selection.EntireColumn.Insert  
Next i

隔列插入
For i = 1 To 10
  Cells(2 * i, 1).Select
  Selection.EntireRow.Insert
Next i

-------------------------------------------------------------
行选择

Range("B2:D3").EntireRow.Value = "Excel VBA"
Range("B2:D3").EntireRow.Interior.ThemeColor = 5
Range("A2").EntireRow.Hidden = True
Range("A4").EntireRow.Value = "Excel VBA"

Range.rows(n)得到一个新的range对象，代表位于该区域第n行的所有单元格。
.count 最后一行的行号

-------------------------------------------------------------

列选择
Range("B2:D3").EntireColumn.Value = "Excel VBA"
Range("B2:D3").EntireColumn.Interior.ThemeColor = 5
Range("A2").EntireColumn.Hidden = True
Range("A4").EntireColumn.Value = "Excel VBA"
range.columns（n）得到一个新的range对象。代表位于该区域第n列的所有单元格。

-------------------------------------------------------------
删除行列
Delete 参数Shift，值xlShiftToLeft向左移动  xlShiftUp向上移动

行数等于列数，剩余表格向上移动
Range(Cells(1, 2), Cells(3, 4)).Delete

行数大于列数，剩余表格向左移动
Range("C1:D2").Delete

Range(Cells(1, 2), Cells(3, 4)).EntireRow.Delete
Range(Cells(1, 2), Cells(3, 4)).EntireColumn.Delete

Rows(k).Delete

-------------------------------------------------------------
内容清除

清除所有设置
Range(Cells(1, 2), Cells(3, 4)).Clear

清除表格内容其余不变
Range("A1:D4").ClearContents

清除所有单元格内容
Worksheets("Sheet2").Cells.ClearContents

清除注释
Worksheets("Sheet2").Cells.ClearComments

清除表格的格式
Range("A1:D4").ClearFormats

当前工作表的所有组合
Cells.ClearOutline

-------------------------------------------------------------
复制粘贴

Range(Cells(1, 2), Cells(3, 4)).Copy Destination:=Cells(5, 6)
Range("B1:D3").Copy Destination:=Range("F5")
ActiveSheet.Range("B1:D3").Copy Destination:=Range("F5")
Worksheets("Sheet1").Range("B1:D3").Copy Destination:=Worksheets("Sheet2").Range("F5")

Range(Cells(1, 2), Cells(3, 4)).Cut Destination:=Cells(5, 6)
Range("B1:D3").Cut Destination:=Range("F5")
ActiveSheet.Range("B1:D3").Cut Destination:=Range("F5")
Worksheets("Sheet1").Range("B1:D3").Cut Destination:=Worksheets("Sheet2").Range("F5")

Range("a1").Copy Range("a2") 复制A1单元格的数据到A2

-------------------------------------------------------------
Validation

With Range("A1:A20").Validation
        .Delete ' 删除现在的有效数据设置
        ' 设置新的有效数据数据（男，或者女）
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="男,女"
        .InCellDropdown = True ' 显示下拉框
        .ShowError = True ' 提示输入错误
        .IgnoreBlank = True ' 空白可
End With

With Range("B2").Validation
        .Delete ' 删除现在的有效数据设置
        ' 设置新的有效数据数据（18-60之内的数字）
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="18", Formula2:="60"
        .InCellDropdown = False ' 隐藏下拉框
        .ShowError = True ' 提示输入错误
        .IgnoreBlank = True ' 空白可
End With

-------------------------------------------------------------
边框样式（录个宏就知道了）

rng.Borders.LineStyle = xlContinuous 
xlContinuous代表着一种默认的Excel边框风格，除了直接用各种风格的名字外，也可以使用对应的值来代替。 设置边框格式，实线、细线，默认颜色为黑色

注意：
通过上网查资料，ColorIndex有56个，是内置的一些颜色值。
如果设置Color的值为RGB，再取它的ColorIndex得到的值可能就不准确了。经过测试，会返回一个较为接近的ColorIndex
所以，想准确取颜色还是使用Color而不是ColorIndex

边框颜色
rng.Borders.ColorIndex = 3
rng.Borders.Color = RGB(0, 255, 0)

边框宽度
rng.Borders.Weight = xlThick

区域的底边框
rng.Borders(xlEdgeBottom).LineStyle = xlContinuous

所有单元格底线：
rng.Borders(xlInsideHorizontal).LineStyle = xlContinuous

表格的宽度
Worksheets("Sheet2").Range("D4").ColumnWidth = 20
 
表格的高度
Worksheets("Sheet2").Range("D4").RowHeight = 30
 
文字颜色
Worksheets("Sheet2").Range("D4").Font.ColorIndex = 3
 
背景颜色
Worksheets("Sheet2").Range("D4").Interior.ColorIndex = 4

With Worksheets("Sheet2")
        .Activate
        With .Range("D4")
            .Value = "Excel VBA"
            .ColumnWidth = 20
            .RowHeight = 30
            .Font.ColorIndex = 3
            .Interior.ColorIndex = 4
        End With
End With

增加边框线Range("A1:B11").Borders.LineStyle=1
取消边框线 Range("A1:B11").Borders.LineStyle=0 

Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)//为左边上边框。
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeTop)//为上边上边框。
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeBottom)//为下边上边框。
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeRight)//为右边边上边框。
        .LineStyle = xlContinuous  常规的实线、细线
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With

Range对象的Borders设置单元格区域的内部线框
BorderAround分别可以设置单元格外部边框。
--------------------------------------------------------------------
设置字体字号

Public Sub  4_144()
    Dim myRange As Range
    Dim myFont As Font
    Set myRange = Range("A1")    '指定任意的单元格区域
    Set myFont = myRange.Font
    Cells.Clear    '清除工作表数据
    myRange.Value = "ExcelVBA实用技巧大全"
    With myFont
        .Name = "华文新魏"
        .Size = 15
        .Bold = True
        .Italic = True
        .ColorIndex = 3
    End With
    Set myFont = Nothing
    Set myRange = Nothing
End Sub