作者windknife18 (windknife18)
看板Visual_Basic
标题Re: [VBA ] 有好方法可以选择多列吗？
时间Fri Mar 27 11:54:14 2009
以下是将前 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