Re: [算表] 刪除特定列
只想到用VBA有比較快,應該你需要的東西,以下獻醜:
Public Sub test()
Dim i, j As Integer
For i = 2 To 10 Step 3
For j = 3 To 10 Step 3
Worksheets("資料表名稱").Rows(i).Hidden = True
Worksheets("資料表名稱").Rows(j).Hidden = True
Next j
Next i
End Sub
其for i = 2 to 10的"10"請再另外設定,你excel資料最後一列的列號就好
(for j......同理)
.hidden是隱藏列,之後可以手動「取消隱藏」
把hidden改delete還有= True刪掉就可以刪除列,
Worksheets("資料表名稱").Rows(i).Delete
但需注意,執行後該列資料無法ctrl+z回復
建議可以先用.hidden執行後,檢查是否為你要的資料了,
確定後,再手動更改程式碼hidden改delete執行,
再進行複製資料即可。
※ 引述《weian (林帛亨加油!!!)》之銘言:
: 軟體: Excel
: 版本: 2007
: 因為某些原因經常要處理網路上複製貼到 excel 的資料
: 轉換時有很多資料不是我需要的,因此想問問有沒有更好的做法。
: 我想要在每三列中取第一列就好,刪除第二三列
: ex:
: 1 1
: 1 3
: 2 希望變成 13
: 3 ==========> 55
: 5
: 8
: 13
: 21
: 34
: 55
: 謝謝幫忙。
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 61.220.139.2
※ 編輯: nara07 來自: 61.220.139.2 (10/11 17:42)
推
10/12 09:54, , 1F
10/12 09:54, 1F
→
10/12 10:16, , 2F
10/12 10:16, 2F
討論串 (同標題文章)