1樓:一碑電影
sub aa()
with sheet1
dim i, k as integer
i = 1
do while .cells(i, 1) <> ""
i = i + 1
loop
for k = 1 to i
if .cells(k, 1) = .cells(k + 1, 1) then
if .cells(k, 4) > .cells(k + 1, 4) then
.range("a" & k, "a" & k).entirerow.delete
else
.range("a" & k + 1, "a" & k + 1).entirerow.delete
end if
end if
next k
end with
end sub
沒除錯過.你自已調調看.
2樓:亮馬河小魚山
這個問題不用使用巨集的,使用自動篩選功能,先篩選相同的編號,然後再按照規格排序,然後把規格比較小的都刪除。剩下的就是你想要的表了,能盡量不用巨集,就不用啊。
3樓:匿名使用者
同意3樓的**,基本解決問題,建議用**前對資料進行排序。
想從「第六排開始」把 for k=1 to i 改為 k=6 to i不就行了。
3、4樓都是高手
4樓:匿名使用者
與什麼比較?
vb通過對物件excel的讀寫就能實現你要的結果
如何在VB中使用keypress
按下和鬆開copy乙個ansi鍵是將發生keypress事件,該事件可用於窗體 核取方塊 組合框 列表框 命令按鈕 框和文字框等大多數控制項。當乙個控制項或窗體具有焦點時,該控制項或窗體將接受從鍵盤上輸入的資訊 keypress事件過程的一般格式為 private sub 物件名 keypress ...
如何在ubuntu中使用eclipsecdt開發cc程式
在ubuntu中使用eclipse cdt開發c c 程式方法 1 安裝eclipse 通過ubuntu自帶的程式安裝功能安裝eclipse,應用程式 ubtuntu軟體中心,搜eclipse安裝即可。2 安裝cdt外掛程式 a 啟動eclipse,b 選擇help install new soft...
如何在jsp頁面中使用freemarker標籤和struts2標籤
三炮 struts cleanup org.apache.struts2.dispatcher.actioncontextcleanup sitemesh freemarker org.apache.struts2.sitemesh.freemarkerpagefilter default enco...