Re: [VBA ] 有好方法可以選擇多列嗎?
看板Visual_Basic作者windknife18 (windknife18)時間15年前 (2009/03/27 11:54)推噓0(0推 0噓 0→)留言0則, 0人參與討論串2/2 (看更多)
以下是將前 15 行一開始是空的的列刪掉的程式,採用你想要的方法,
先將要刪的列選起來在一起刪,自己修改一下應該就可以符合你的需求了
delstr = ""
For i = 1 To 15
If (Cells(i, 1) = "") Then
delstr = delstr & i & ":" & i & ","
End If
Next i
delstr = Left(delstr, Len(delstr) - 1)
Range(delstr).Select
Selection.Delete Shift:=xlUp
Range("A1").Select
※ 引述《Maybetrue (No one Remember)》之銘言:
: 我有一筆資料,但是列與列中間會插一些無意義的空列位。
: 為了方便我算總數以及定位置,我需要砍掉這些空列位。
: 但是空列位出現的列號不是具有規則的。
: 我目前的作法是用一個DO迴圈檢查,檢查到該列的第一個儲存格為無內容
: 就刪除該列。例如:
: If Cells(exampleRow, 1) = "" Then
: Rows( exampleRow ).Delete (xlShiftUp)
: End If
: 但是這樣一個個刪除很慢。不知道有沒有辦法可以先讓我把空列位的列號存在
: 陣列中,再取出、多重選取多列,再一次刪除多列的寫法。
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 61.229.79.21
討論串 (同標題文章)
本文引述了以下文章的的內容:
完整討論串 (本文為第 2 之 2 篇):