sub m()
for i = range("a65536").end(3).row to 2 step -1 '從最後一行到倒數第二行迴圈
if cells(i, "a") = cells(i - 1, "a") then '如果上下兩個單元格值相同
range("a" & i - 1 & ":a" & i).merge '那麼就合併這兩個單元格
end if
next i
end sub
第二種方式
自己留作參考
sub test()
dim str
dim i, j
i = 1
j = 1
for r = 1 to worksheets(2).usedrange.rows.count
for c = 1 to worksheets(2).usedrange.columns.count
str = worksheets(2).cells(r, c).value
worksheets(3).cells(j, 1).value = i
worksheets(3).cells(j, 2).value = c
worksheets(3).cells(j, 3).value = str
j = j + 1
next
i = i + 1
next
end sub
刪除形狀
sub test()
dim sheet as worksheet
dim s as shape
dim i as integer
for each sheet in activeworkbook.sheets
for each s in sheet.shapes
s.delete
i = i + 1
next
next
msgbox "已刪除當前表中 " & i & " 形狀"
end sub
啟用當前已使用區域
activesheet.usedrange.select
Excel 通過VBA高亮選擇單元格的行列
wps有乙個比較有意思的功能叫十字游標，就是可以亮顯選擇單元格的行列，資料量比較多的時候可以方便檢視資料，可惜excel原生並沒有類似的功能，網上搜尋了一下，發現可以通過vba完成類似的功能，便嘗試了一下。思路是通過vba獲得選擇區域的行與列，在行列中新增條件格式，通過條件格式改變行與列單元格的填充...
VBA 通過VBA實現EXCEL真正的全屏顯示
說明 通過vba實現真正的全屏顯示excel介面。測試 private sub commandbutton1 click if commandbutton1.caption 全屏顯示 then displayfullscreen true 基本全屏 commandbars 1 enabled fal...
vba遍歷字串 迴圈遍歷VBA中的指定工作表
您在問題中顯示的 因以下原因而失敗 assets array pipe mat tables pipe diam tables pipe length tables assets是一種工作表，它是一種object，在為物件賦值時必須使用set set assets array pipe mat ta...