標題: 資料拆解 [打印本頁]

---

作者: hugh0620    時間: 2011-6-27 10:53     標題: 資料拆解

本帖最後由 hugh0620 於 2011-6-27 10:55 編輯

Dear 大大

          小弟有一個data需要拆開,
          請大大有教於我~
          問題範本,如附檔
          [attach]6849[/attach]
          問題如下
          因原始資料的儲存格是用alt+enter 斷開,所以,需要將斷開的資料轉成資料庫的格式
          從資料庫的格式轉成原始資料的格式,小弟用笨的方式處理,但可以跑~
          問題圖示:
          [attach]6850[/attach]

---

作者: oobird    時間: 2011-6-27 11:41

1. Private Sub CommandButton1_Click()
   
2. Dim arr(), i%, j%, m%, a
   
3. For i = 3 To [e65536].End(3).Row
   
4. If InStr(Cells(i, 5), vbLf) = 0 Then
   
5. m = m + 1
   
6. ReDim Preserve arr(1 To 2, 1 To m)
   
7. arr(1, m) = Cells(i, 4): arr(2, m) = Cells(i, 5)
   
8. Else
   
9. a = Split(Cells(i, 5), vbLf)
   
10. For j = 0 To UBound(a)
    
11. m = m + 1
    
12. ReDim Preserve arr(1 To 2, 1 To m)
    
13. arr(1, m) = Cells(i, 4): arr(2, m) = a(j)
    
14. Next
    
15. End If
    
16. Next
    
17. [g3].Resize(m, 2) = Application.Transpose(arr)
    
18. End Sub

複製代碼

---

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