用VBA改写把冒泡排序每一次排序过程 按列输出单元格
答案:1 悬赏:40 手机版
解决时间 2021-11-26 22:27
- 提问者网友：火车头
- 2021-11-26 05:00
用VBA改写把冒泡排序每一次排序过程 按列输出单元格
最佳答案
- 五星知识达人网友：廢物販賣機
- 2021-11-26 05:23
dim flag as boolean
flag=false
for i=1 to usedrange.rows.count
for j=1 to usedrange.columns.count
if cells(i,j)="Weight/Mt Contents" then
Rows(i+1).Insert Shift:=xlDown
Rows("1:"& i).Delete Shift:=xlUp
flag=true
exit for
end if
next j
if flag then exit for
next i
flag=false
for i=1 to usedrange.rows.count
for j=1 to usedrange.columns.count
if cells(i,j)="Weight/Mt Contents" then
Rows(i+1).Insert Shift:=xlDown
Rows("1:"& i).Delete Shift:=xlUp
flag=true
exit for
end if
next j
if flag then exit for
next i
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯