excel折行分裂問題

lionliu

各位大個好我有一個excel問題如範例
我想要讓工作表1內容轉換成工作表2，行數不等不知vba要如何撰寫。
活頁簿1.rar (6.82 KB)

下載次數: 11

2015-4-10 10:20

請各位大哥幫我解惑一下。

lionliu

不好意思沒表示清楚，
工作表1 A2 要轉成工作表的A2、A3、A4三列
       "      A4    ""                      ""  A6、A7兩列

GBKEE

回復 2# lionliu
試試看

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim E As Range, S As String
   
4.     For Each E In Sheets("工作表1").UsedRange.Columns(1).Cells '你的資料在A欄
   
5.         S = S & IIf(S <> "", ",", "") & Join(Split(E.Value, vbLf), ",")
   
6.     Next
   
7.     Sheets("工作表2").[A1].Resize(UBound(Split(S, ",")) + 1) = Application.Transpose(Split(S, ","))
   
8. End Sub

複製代碼

lionliu

回復 3# GBKEE
測試可以跑了謝謝大哥

lionliu

回復 3# GBKEE
GB大哥：
若我前面有欄位編號：是否可以加進去如附件
活頁簿1.rar (6.91 KB)

下載次數: 4

2015-4-16 15:52

有事著自行以範例修改，但是做到後來還是無解

GBKEE

回復 6# lionliu
試試看

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim E As Range, D  As Object, Sp As Variant
   
4.     Set D = CreateObject("SCRIPTING.DICTIONARY") '字典物件
   
5.     For Each E In Sheets("工作表1").UsedRange.Columns(2).Cells '你的資料在B欄
   
6.         For Each Sp In Split(E.Value, vbLf)
   
7.             D(E.Offset(, -1) & ":" & Sp) = ""    '字典物件的Key值=>  E.Offset(, -1) & ":" & Sp
   
8.         Next
   
9.     Next
   
10.     Sheets("工作表2").[A1].Resize(D.Count) = Application.Transpose(D.KEYS)
    
11. End Sub

複製代碼

lionliu

回復 7# GBKEE


  謝謝gb大大
看了你的2個vba讓我有更進一步的感覺，真是太強大了。

lionliu

回復 6# GBKEE
GBKEE大大好

我用系統轉出的資料若用上述方法，當COPY到記事本或淳晟記事本後。
會在折行的文字前面會加上" 如附件不知有方法可以克服。
TEST.rar (9.39 KB)

下載次數: 2

2015-6-6 09:07

lionliu

回復 6# GBKEE
GB老大不用了，我自己測試出來了，謝謝您。

lionliu

回復 9# lionliu
GB大哥：
不好意思又碰到問題想不出解決方法，所以有上來請教你。
與上面問題雷同，我想讓工作表1 轉成工作表2。 活頁簿1.rar (13.32 KB)

下載次數: 2

2015-8-13 13:24