返回列表 上一主題 發帖

[發問] VBA,突然一時轉不過來

[發問] VBA,突然一時轉不過來

AB兩欄。
將A欄內容遇到空格往上補資料。但B欄資料不會變動到。
如附件那樣。

Book1.rar (1.63 KB)

本帖最後由 GBKEE 於 2010-8-26 11:29 編輯

回復 1# 幼稚園飛天豬
  1. Sub Ex()
  2.     On Error Resume Next  '沒有空白的儲存個會產生錯誤 用此程式碼 使程序順暢
  3.     With ActiveSheet
  4.         .Range("a1", .Range("a" & Rows.Count).End(xlUp)).SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
  5.    End With
  6. End Sub
複製代碼

TOP

  1. Sub ex()
  2. Columns("A").SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
  3. End Sub
複製代碼
學海無涯_不恥下問

TOP

謝謝GBKEE 和Hsieh 的回答
這個小問題,真的解決了。
謝謝

TOP

        靜思自在 : 人的心地是一畦田,土地沒有播下好種子,也長不出好的果實。 -
返回列表 上一主題