Sub Test_A1()
Dim R&, C
'↑宣告變數:R是長整數,C是通用型變數
C = Application.Match([c1], Sheet1.[1:1], 0)
'↑令C這通用型變數是 以Match()方法回傳[C1]儲存格值 在Sheet1(源數据)表.[1:1]的位置 https://learn.microsoft.com/zh-t ... sheetfunction.match
If IsError(C) Then Exit Sub
'↑如果以IsError 函數判斷 C變數回傳(TRUE):是錯誤值,就結束程式執行
R = Sheet1.[a65536].End(3).Row - 1
'↑令R這長整數變數是 Sheet1(源數据)A欄最後一個有內容儲存格列號-1
With [c4].Resize(R, 2)
'↑以下是關於 [C4]儲存格擴展向下R變數列,擴展向右2欄範圍儲存格的程序
.Columns(1) = Sheet1.[a2].Resize(R).Value
'↑令該範圍儲存格第1欄儲存格值是 Sheet1(源數据)表.[A2]擴展向下R變數列儲存格值
.Columns(2) = Sheet1.Cells(2, C).Resize(R).Value
'↑令該範圍儲存格第2欄儲存格值是 Sheet1(源數据)表第 C變數欄/第2列儲存格,
'向下R變數列儲存格值
.Sort Key1:=.Item(2), Order1:=xlDescending, Header:=xlNo
'↑令該範圍以第2欄做沒有標題的漸減排序
.Rows(11).Resize(R).ClearContents
'↑令該區域第11列開始擴展向下R變數列的範圍儲存格內容清除
End With
End Sub
發表於 2023-11-6 08:06
| 
