'簡易實現單列查詢定位到最後一次出現的行
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...