帖子: 44
主題: 22
精華: 0
積分: 79
點名: 0
作業系統: Win7
軟體版本: office2007
閱讀權限: 20
性別: 女
註冊時間: 2011-1-22
最後登錄: 2017-5-9

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2013-5-5 22:40 | 只看該作者

[發問] 資料剖析後刪除空白列

參考板上文章試寫一段資料剖析後刪除空白列的VBA，
資料剖析以|符號斷行，但執行出現以下問題：
1.一直不斷執行迴圈
2.刪除空白列是一整列空白，但目前執行看起來是刪除空白列後下方儲存格會上移，
請高手指點哪裡錯誤？感激不盡！

Sub 剖析刪空()

For Each a In Range("A:A")

h = Split(a, "|", 30, vbDatabaseCompare)

i = 1

For Each b In h

a.Offset(columnoffset:=i) = b

i = i + 1

Next

With Range("A1: BB1000").SpecialCells(xlCellTypeBlanks).Delete

End With

Next

End Sub

樓主熱帖

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 277
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-12-23

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

2^#

發表於 2013-5-5 23:37 | 只看該作者

回復 1# paddyliu

刪除列，當然下方儲存格會上移，不知道你想要的刪除是甚麼意思?

學海無涯_不恥下問

TOP

paddyliu

中學生 Rank: 2

帖子: 44
主題: 22
精華: 0
積分: 79
點名: 0
作業系統: Win7
軟體版本: office2007
閱讀權限: 20
性別: 女
註冊時間: 2011-1-22
最後登錄: 2017-5-9

3^#

發表於 2013-5-5 23:53 | 只看該作者

回復 2# Hsieh

你好，舉例如下：

討債明細  一覽表
(空白列)
A125348 | 張小明 | $1235
V028684 | 陳大花 | $2598
(空白列)
V248514 | 章法華 | $7538
(空白列)
V425686 | 嚕啦啦 | $5485

我執行後變成&不斷迴圈

討債明細  一覽表
               張小明  $1235
V028684  陳大花  $2598
V248514  章法華  $7538
V425686  嚕啦啦  $5485
V425686

但我要的結果是：
A125348  張小明  $1235
V028684  陳大花  $2598
V248514  章法華  $7538
V425686  嚕啦啦  $5485

TOP

genes

中學生 Rank: 2

帖子: 45
主題: 1
精華: 0
積分: 51
點名: 0
作業系統: windows 7
軟體版本: office 2003
閱讀權限: 20
註冊時間: 2013-4-16
最後登錄: 2013-12-30

4^#

發表於 2013-5-6 02:23 | 只看該作者

回復 3# paddyliu

move delete command outside "for loop"?

Sub 剖析刪空()
For Each a In Range("A:A")
h = Split(a, "|", 30, vbDatabaseCompare)
i = 1
For Each b In h
a.Offset(columnoffset:=i) = b
i = i + 1
Next
Next
With Range("A1: BB1000").SpecialCells(xlCellTypeBlanks).Delete
End With
End Sub

複製代碼

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

5^#

發表於 2013-5-6 06:28 | 只看該作者

回復 3# paddyliu

Option Explicit
Sub Ex()
Dim E As Range, A As Variant
With Range("a:a")
.SpecialCells(xlCellTypeBlanks).Delete '空白列刪除:集中有資料範圍
For Each E In .SpecialCells(xlCellTypeConstants) '有資料範圍
A = Split(E, "|") '分割字串為陣列
E.Resize(, UBound(A) + 1).Value = A
Next
End With
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

paddyliu

中學生 Rank: 2

帖子: 44
主題: 22
精華: 0
積分: 79
點名: 0
作業系統: Win7
軟體版本: office2007
閱讀權限: 20
性別: 女
註冊時間: 2011-1-22
最後登錄: 2017-5-9

6^#

發表於 2013-5-6 09:28 | 只看該作者

回復 4# genes
感謝指教，這寫法雖然不會loop，
但刪空的資料會全部向上位移，
就同如我上方的例子，
                  張小明  $1235
V028684  陳大花  $2598
V248514  章法華  $7538
V425686  嚕啦啦  $5485
V425686
如果以我的寫法是要更改那一段呢？

TOP

paddyliu