super31610

小學生 Rank: 1

帖子: 7
主題: 2
精華: 0
積分: 8
點名: 0
作業系統: WIN7
軟體版本: 86
閱讀權限: 10
註冊時間: 2014-9-9
最後登錄: 2014-10-4

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2014-9-9 10:15 | 只看該作者

[發問] 大筆資料處理~判讀問題

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

求助.rar (6.59 KB)

luhpro

高中生 Rank: 3 Rank: 3

帖子: 824
主題: 6
精華: 0
積分: 904
點名: 0
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2023-12-24

2^#

發表於 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

複製代碼

求助-a.zip (15.87 KB)

TOP

super31610

小學生 Rank: 1

帖子: 7
主題: 2
精華: 0
積分: 8
點名: 0
作業系統: WIN7
軟體版本: 86
閱讀權限: 10
註冊時間: 2014-9-9
最後登錄: 2014-10-4

3^#

發表於 2014-9-10 09:45 | 只看該作者

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

TOP

super31610

小學生 Rank: 1

帖子: 7
主題: 2
精華: 0
積分: 8
點名: 0
作業系統: WIN7
軟體版本: 86
閱讀權限: 10
註冊時間: 2014-9-9
最後登錄: 2014-10-4

4^#

發表於 2014-9-10 15:07 | 只看該作者

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

TOP

luhpro

高中生 Rank: 3 Rank: 3

帖子: 824
主題: 6
精華: 0
積分: 904
點名: 0
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2023-12-24

5^#

發表於 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

複製代碼

TOP

super31610

小學生 Rank: 1

帖子: 7
主題: 2
精華: 0
積分: 8
點名: 0
作業系統: WIN7
軟體版本: 86
閱讀權限: 10
註冊時間: 2014-9-9
最後登錄: 2014-10-4

6^#

發表於 2014-9-12 14:48 | 只看該作者

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

TOP

[發問] 大筆資料處理~判讀問題

[發問] 大筆資料處理~判讀問題

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]