返回列表 上一主題 發帖

資料拆解

hugh0620
　暱稱: VBA向前衝

高中生Rank: 3Rank: 3

帖子
559 
主題
58 
精華
0 
積分
626 
點名
0  
作業系統
win8 
軟體版本
office2013 
閱讀權限
50 
性別
男 
來自
TW 
註冊時間
2010-11-22 
最後登錄
2024-6-14 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-6-27 10:53 | 只看該作者

資料拆解

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

Dear 大大

          小弟有一個data需要拆開,
          請大大有教於我~
          問題範本,如附檔
          資料拆解.rar (9.45 KB)
          問題如下
          因原始資料的儲存格是用alt+enter 斷開,所以,需要將斷開的資料轉成資料庫的格式
          從資料庫的格式轉成原始資料的格式,小弟用笨的方式處理,但可以跑~
          問題圖示:
         
收藏 分享
學習才能提升自己

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

帖子
1572 
主題
16 
精華
2 
積分
1521 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
150 
性別
男 
註冊時間
2010-5-1 
最後登錄
2016-1-13 

論壇貢獻勳章
2#
發表於 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
複製代碼

TOP

        靜思自在 : 稻穗結得越飽滿，越會往下垂，一個人越有成就，就要越有謙沖的胸襟。
返回列表 上一主題