中文字幕理论片,69视频免费在线观看,亚洲成人app,国产1级毛片,刘涛最大尺度戏视频,欧美亚洲美女视频,2021韩国美女仙女屋vip视频

1.單元格

1.1 單個(gè)單元格

Worksheets('Sheet1').Range('A1').Value = 10

1.2 單元格區(qū)域

直接引用與通過變量引用

通過名稱引用

Sub rng()    Range('date').Value = 10  '提前定義名稱 date = A1:B10End Sub

1.3 跨區(qū)域引用

同時(shí)選擇多個(gè)區(qū)域

選擇多個(gè)區(qū)域的交集

Sub rng()    Range('A1:A10 A4:E6').Select  '空格分隔End Sub

包含2個(gè)區(qū)域的最小矩形區(qū)域

2.Cells屬性

作為Range的屬性

Range('B3:F9').Cells(2,3) = 100 '為B3:F9區(qū)域第2行、第3列的單元格賦值100

作為Range的參數(shù)

Range(Cells(1,1),Cells(10,5)).Select '2個(gè)表達(dá)式，意義是一樣的
Range('A1','E10').Select

3.Rows、Columns對象

與Range對象有點(diǎn)不同，Rows和Columns是直接引用工作表、區(qū)域的指定行、列
Rows('3:10').Rows(1).Select '選中第3行到第10行區(qū)域中的第1行
Columns('B:G').Columns(3).Select '選中第3行到第10行區(qū)域中的第1行

4.Union方法

將多個(gè)單元格區(qū)域粘在一起，并同時(shí)對其進(jìn)行操作

案例：選中A1:F14區(qū)域中，所有數(shù)值與A1相同的單元格

Sub Rnge5()    Dim myRng As Range, n As Range    Set myRng = Range('A1')    For Each n In Range('A1:E14')        If n.Value = Range('A1').Value Then            Set myRng = Union(myRng, n)        End If    Next    myRng.SelectEnd Sub

5.Offset屬性

與同名Excel函數(shù)的原理一樣
Range('A1').offset(2,3).Value = 100 '往下走2行、往右走3列

6.Resize屬性

以目標(biāo)單元格區(qū)域?yàn)閷ο?，將范圍擴(kuò)大或縮小到指定范圍
Range('A1').Resize(5,4).Select '放大到 5行x4列
Range('B1:H10').Resize(2,1).Select '縮小到 2x1

7.UsedRange屬性

返回包含所有已使用單元格的矩形區(qū)域
比如，表里就A1和C10有數(shù)據(jù)，那么返回?cái)?shù)據(jù)為 A1:C10

8.End屬性

作用相當(dāng)于在Excel里使用 Ctrl+方向鍵，需要配合'方向'參數(shù)使用

語句格式

Range('C5').End(xlUp).Select

參數(shù)說明

案例：在數(shù)列的最后一格后邊插入1個(gè)1~100的隨機(jī)整數(shù)

9.Value屬性

Value 是Range的默認(rèn)屬性，在賦值時(shí)，可以被省略
Range('B1:H10').Value = 100 '兩者的意義是一樣的
Range('B1') = 100

10.Count屬性

Count可以計(jì)算區(qū)域里一共包含多少單元格
Range('B1:H10').Count
加上Rows和Columns，可以看縱、橫的格數(shù)
Range('B1:H10').Rows.Count
Range('B1:H10').Columns.Count

11.復(fù)制粘貼

復(fù)制B1的數(shù)據(jù)，并粘貼到C1
Range('B1').Copy Range('C1')
跨工作表粘貼
Worksheets('Sheet1').Range('B1:B10').Copy Worksheets('Sheet2').Range('C1:C10')