麻辣家族討論版版 » 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

2^#

發表於 2015-4-13 11:17 | 顯示全部帖子

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

lionliu

中學生 Rank: 2

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

3^#

發表於 2015-4-13 16:26 | 顯示全部帖子

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

lionliu

中學生 Rank: 2

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

4^#

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

5^#

發表於 2015-4-20 14:37 | 顯示全部帖子

回復 7# GBKEE

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

lionliu

中學生 Rank: 2

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

6^#

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

靜思自在 : 成功是優點的發揮，失敗是缺點的累積。

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