麻辣家族討論版版 » Excel程式區 » excel折行分裂問題

返回列表下一主題上一主題發帖

excel折行分裂問題

中學生 Rank: 2

帖子: 97
主題: 26
精華: 0
積分: 158
點名: 0
作業系統: windows
軟體版本: office2010
閱讀權限: 20
性別: 男
來自: taichung
註冊時間: 2010-9-12
最後登錄: 2019-8-29

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2015-4-10 10:21 | 只看該作者

excel折行分裂問題

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

活頁簿1.rar (6.82 KB)
請各位大哥幫我解惑一下。

樓主熱帖

收藏

lionliu

中學生 Rank: 2

帖子: 97
主題: 26
精華: 0
積分: 158
點名: 0
作業系統: windows
軟體版本: office2010
閱讀權限: 20
性別: 男
來自: taichung
註冊時間: 2010-9-12
最後登錄: 2019-8-29

11^#

發表於 2015-8-13 15:11 | 只看該作者

回復 10# lionliu
這是我是做的程式碼，不知是否有哪位大個可以告訴我要如何修改

Sub inv()
'
Dim i, j, k, rcnt As Integer
Dim myArray() As String
rcnt = Sheets(1).Cells(Rows.Count, 3).End(xlUp).Row
For i = 5 To rcnt
myArray = Split(Sheets(1).Cells(i, 3), vbLf)
'j = i + 6
For j = 0 To UBound(myArray)
Sheets(2).Cells(i, 3).Value = myArray(j)
Next j
k = i + j
Sheets(2).Cells(k, 1) = Sheets(1).Cells(i, 1)
Sheets(2).Cells(k, 7) = Sheets(1).Cells(i, 7)
Sheets(2).Cells(k, 8) = Sheets(1).Cells(i, 8)
Next i
End Sub

複製代碼

lionliu

中學生 Rank: 2

帖子: 97
主題: 26
精華: 0
積分: 158
點名: 0
作業系統: windows
軟體版本: office2010
閱讀權限: 20
性別: 男
來自: taichung
註冊時間: 2010-9-12
最後登錄: 2019-8-29

10^#

發表於 2015-8-13 13:24 | 只看該作者

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

活頁簿1.rar (13.32 KB)

lionliu

中學生 Rank: 2

帖子: 97
主題: 26
精華: 0
積分: 158
點名: 0
作業系統: windows
軟體版本: office2010
閱讀權限: 20
性別: 男
來自: taichung
註冊時間: 2010-9-12
最後登錄: 2019-8-29

9^#

發表於 2015-6-6 10:29 | 只看該作者

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

lionliu

中學生 Rank: 2

帖子: 97
主題: 26
精華: 0
積分: 158
點名: 0
作業系統: windows
軟體版本: office2010
閱讀權限: 20
性別: 男
來自: taichung
註冊時間: 2010-9-12
最後登錄: 2019-8-29

8^#

發表於 2015-6-6 09:07 | 只看該作者

回復 6# GBKEE
GBKEE大大好

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

TEST.rar (9.39 KB)

lionliu

中學生 Rank: 2

帖子: 97
主題: 26
精華: 0
積分: 158
點名: 0
作業系統: windows
軟體版本: office2010
閱讀權限: 20
性別: 男
來自: taichung
註冊時間: 2010-9-12
最後登錄: 2019-8-29

7^#

發表於 2015-4-20 14:37 | 只看該作者

回復 7# GBKEE

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

lionliu

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

6^#

發表於 2015-4-17 14:39 | 只看該作者

回復 6# lionliu
試試看

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

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

中學生 Rank: 2

帖子: 97
主題: 26
精華: 0
積分: 158
點名: 0
作業系統: windows
軟體版本: office2010
閱讀權限: 20
性別: 男
來自: taichung
註冊時間: 2010-9-12
最後登錄: 2019-8-29

5^#

發表於 2015-4-16 15:54 | 只看該作者

回復 3# GBKEE
GB大哥：
若我前面有欄位編號：是否可以加進去如附件

活頁簿1.rar (6.91 KB)
有事著自行以範例修改，但是做到後來還是無解

lionliu

中學生 Rank: 2

帖子: 97
主題: 26
精華: 0
積分: 158
點名: 0
作業系統: windows
軟體版本: office2010
閱讀權限: 20
性別: 男
來自: taichung
註冊時間: 2010-9-12
最後登錄: 2019-8-29

4^#

發表於 2015-4-13 16:26 | 只看該作者

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

lionliu

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

3^#

發表於 2015-4-13 16:07 | 只看該作者

回復 2# lionliu
試試看

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

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

靜思自在 : 【時間成就一切】時間可以造就人格，可以成就事業，也可以儲積功德。

返回列表下一主題上一主題