麻辣家族討論版版 - Powered by Discuz! Board

標題: [發問] 大筆資料處理~判讀問題 [打印本頁]

作者: super31610 時間: 2014-9-9 10:15 標題: 大筆資料處理~判讀問題

我有一份四萬多筆的資料
我用PDF 複製過來之後
會有一些地址像第一筆一樣
因為地址過長而跳了一格儲存格
不知道有沒有方法可以判讀看他是否跳格
然後將地址合在一起最後巷SHEET3這樣轉至成橫列的
:L

[attach]19115[/attach]

作者: luhpro 時間: 2014-9-9 23:06

本帖最後由 luhpro 於 2014-9-9 23:07 編輯

我有一份四萬多筆的資料
我用PDF 複製過來之後
會有一些地址像第一筆一樣
因為地址過長而跳了一格儲存 ...
super31610 發表於 2014-9-9 10:15

因為你的資料量太大了,
且其內容又需要搬移與合併,
所以比較適合用 Excel VBA 來達成,
不宜用儲存格公式來實現.

Sub nn()
Dim lRows&, lRow&
Dim iI%
lRow = 1
Do While Cells(lRow, 1) <> ""
With Cells(lRow, 1)
If Mid(.Value, 3, 1) = "市" Or Mid(.Value, 3, 1) = "縣" Then
If Not IsNumeric(.Offset(1)) Then
.Value = .Value & .Offset(1)
.Offset(1).Rows.Delete xlShiftUp
End If
For iI = 1 To 3
.Offset(, iI) = .Offset(1)
.Offset(1).Rows.Delete xlShiftUp
Next
End If
lRow = lRow + 1
End With
Loop

複製代碼

[attach]19125[/attach]

作者: super31610 時間: 2014-9-10 09:45

WOW 太感謝你了
真的是省了我大半天的時間了
不然我用函數下去帶常常錯誤又很慢
太感恩了

作者: super31610 時間: 2014-9-10 15:07

今天在使用的時候發現了一些問題
就是我有一些資料地址的部分會不完全
可能只有高雄鳳山區或台北台北區這樣
不知道可不可以用下面 C-3xxx-x 這邊做為判斷
然後下去更改我有嘗試改了一下你提供的
可是無法成功執行我想要的結果

作者: luhpro 時間: 2014-9-10 23:50

今天在使用的時候發現了一些問題
就是我有一些資料地址的部分會不完全
可能只有高雄鳳山區或台北台北 ...
super31610 發表於 2014-9-10 15:07

改另一種判斷方式:

Sub nn()
Dim lRows&, lRow&
Dim iI%, iJ%
Dim vData()
lRow = 1
Do While Cells(lRow, 1) <> ""
iI = 0
ReDim vData(4)
With Cells(lRow, 1)
Do
vData(iI) = .Offset(iI)
iI = iI + 1
Loop Until Left(.Offset(iI), 2) = "C-"
vData(iI) = .Offset(iI)
If iI > 3 Then
.Value = vData(0) & vData(1)
.Offset(1).Rows.Delete xlShiftUp
End If
iI = iI - 2
For iJ = 0 To 2
Cells(lRow, 1).Offset(, iJ + 1) = vData(iI + iJ)
.Offset(1).Rows.Delete xlShiftUp
Next
lRow = lRow + 1
End With
Loop
End Sub

複製代碼

作者: super31610 時間: 2014-9-12 14:48

感謝你啊雖然大部分的程式碼都看不懂沒辦法自己改
但是對我很有幫助感謝!!

歡迎光臨麻辣家族討論版版 (http://forum.twbts.com/)