請問要如何將二列分別貼到吚二欄呢? - Excel程式區

　暱稱: Kevin

帖子: 56
主題: 8
精華: 0
積分: 81
點名: 0
作業系統: Window7
軟體版本: OFFICE2010
閱讀權限: 20
性別: 男
註冊時間: 2011-6-25
最後登錄: 2016-1-17

1^# 跳轉到 »

發表於 2011-8-7 19:18 | 顯示全部帖子

本帖最後由 Happkkevin 於 2011-8-7 19:21 編輯

此適用多資料運用，以 Split 加上 Chr(10) 切割文字

Dim myArray() As String
Dim i As Integer, j As Integer
Dim KROWEND%
KROWEND = Cells(Rows.Count, 1).End(xlUp).Row
For j = 1 To KROWEND
myArray = Split(Cells(j, 1), Chr(10))
For i = 0 To UBound(myArray)
Cells(j, 2 + i).Value = myArray(i)
Next i
Next j

複製代碼

100 字節以內
不支持自定義 Discuz! 代碼

　暱稱: Kevin

帖子: 56
主題: 8
精華: 0
積分: 81
點名: 0
作業系統: Window7
軟體版本: OFFICE2010
閱讀權限: 20
性別: 男
註冊時間: 2011-6-25
最後登錄: 2016-1-17

2^#

發表於 2011-8-8 21:42 | 顯示全部帖子

回復 4# gctsai

Sub RetsuBunKatsu1()
Dim myArray() As String
Dim i As Integer, j As Integer
Dim KROWEND%
KROWEND = Cells(Rows.Count, 1).End(xlUp).Row
For j = 1 To KROWEND
myArray = Split(Cells(j, 1), Chr(10))
For i = 0 To UBound(myArray)
Sheets("sheet4").Cells(j, 1 + i).Value = myArray(i)
Next i
Next j
End Sub

複製代碼

Sheets("sheet4").Cells(j, 1 + i)

100 字節以內
不支持自定義 Discuz! 代碼

　暱稱: Kevin

帖子: 56
主題: 8
精華: 0
積分: 81
點名: 0
作業系統: Window7
軟體版本: OFFICE2010
閱讀權限: 20
性別: 男
註冊時間: 2011-6-25
最後登錄: 2016-1-17

3^#

發表於 2011-8-8 22:13 | 顯示全部帖子

本帖最後由 Happkkevin 於 2011-8-8 22:15 編輯

回復 6# gctsai
若為固定 13 位，使用 NumberFormatLocal修正，還在學習中
所以有些呆板，希望有建議者告知

Dim myArray() As String
Dim i As Integer, j As Integer
Dim KROWEND%
KROWEND = Cells(Rows.Count, 1).End(xlUp).Row
For j = 1 To KROWEND
myArray = Split(Cells(j, 1), Chr(10))
For i = 0 To UBound(myArray)
Sheets("sheet2").Cells(j, 1 + i).Value = myArray(i)
Sheets("sheet2").Cells(j, 1).NumberFormatLocal = "0000000000000"
Next i
Next j

複製代碼

100 字節以內
不支持自定義 Discuz! 代碼

　暱稱: Kevin

帖子: 56
主題: 8
精華: 0
積分: 81
點名: 0
作業系統: Window7
軟體版本: OFFICE2010
閱讀權限: 20
性別: 男
註冊時間: 2011-6-25
最後登錄: 2016-1-17

4^#

發表於 2011-8-8 22:41 | 顯示全部帖子

回復 9# gctsai

Dim myArray() As String
Dim i As Integer, j As Integer
Dim KROWEND%
KROWEND = Cells(Rows.Count, 1).End(xlUp).Row
For j = 1 To KROWEND
myArray = Split(Cells(j, 1), Chr(10))
For i = 0 To UBound(myArray)
Sheets("sheet4").Cells(j, 1).NumberFormatLocal = "@"
Sheets("sheet4").Cells(j, 1 + i).Value = myArray(i)
Next i
Next j

複製代碼

試試看文字與數字呈現較喜歡那種，NumberFormatLocal = "@" 先設定

100 字節以內
不支持自定義 Discuz! 代碼

　暱稱: Kevin

帖子: 56
主題: 8
精華: 0
積分: 81
點名: 0
作業系統: Window7
軟體版本: OFFICE2010
閱讀權限: 20
性別: 男
註冊時間: 2011-6-25
最後登錄: 2016-1-17

5^#

發表於 2011-8-8 22:45 | 顯示全部帖子

回復 10# oobird
沒錯，放進循環中似乎是多此一舉
相信資料多時將拖慢速度，
就是這點，常常讓我犯了拖慢的缺點
學習中，有學到，感恩

100 字節以內
不支持自定義 Discuz! 代碼