VBA學習記錄

'簡易實現單列查詢定位到最後一次出現的行

private sub commandbutton1_click()
dim arr1
cx = textbox1.value
arr1 = range("c1:c10000")
for i = 1 to ubound(arr1)
if arr1(i, 1) = cx then
n = i
end if
next
range("c" & n).select
end sub

sub 刪除a列等於指定內容的行()

dim a as range
endrow = range("a65536").end(xlup).row
for each a in range("a1:a" & endrow)
if a = "指定內容" then
a.entirerow.delete
end if
next
end sub

有個工作表，有n行n列，b列是領料部門，c列是領料用途，e列是發料倉庫，凡是b列有「研發部」、「技術部」，則整行刪除；

凡是c列有「檢測」、「修理」、「生產」，則整行刪除；凡是e列有「基建倉庫」、「成品倉庫」，則整行刪除。
sub delrows() 
dim arr, k&
arr = [a1].currentregion'把[a1]開始的當前區域的值賦給
for k = ubound(arr) to 1 step -1
if instr(arr(k, 2), "研發部") + instr(arr(k, 2), "技術部") + _
instr(arr(k, 3), "檢測") + instr(arr(k, 3), "修理") + instr(arr(k, 3), "生產") + _
instr(arr(k, 5), "基建倉庫") + instr(arr(k, 5), "成品倉庫") then
rows(k).delete
end if
next
end sub

sub 計數()

dim arr, i, j, k
i = activesheet.range("k" & rows.count).end(xlup).row
arr = range("k5:k" & i)
for j = 1 to ubound(arr)
if arr(j, 1) = "江西岑陽" then'查詢江西岑陽出現的次數
k = k + 1
end if
next
end sub

VBA 自定義排序學習記錄

一直想學下自定義排序，之前有了解到sort方法排序和乙個個對比的排序方法，今天遇到個需要按固定順序來排序的問題，所以一時興起就去網上找了下答案。排序後結果 片段 sub order by customize dim ws as worksheet dim arr brr dim d as objec...

VBA學習筆記

答 一種可以自動反覆遍歷資料的巨集。9.錄製巨集？答 選擇 工具 巨集 錄製新巨集 在對話方塊中，為你將要做的巨集設定乙個快捷鍵。確定之後，可以看到乙個小的工具欄，上面有個 停 字。10.執行巨集？答 1 選擇任何乙個單元格。2 選擇 工具 巨集 巨集 顯示 巨集 對話方塊。3 選擇自己錄製的巨集名...

VBA學習5 VBA常用函式

1,vba字串函式列表 trim string 去掉string左右兩端空白 ltrim string 去掉string左端空白 rtrim string 去掉string右端空白 len string 計算string長度 left string,x 取string左段x個字元組成的字串 righ...