gctsai

等待驗證會員

帖子: 42
主題: 10
精華: 0
積分: 72
點名: 0
作業系統: WIN
軟體版本: XP
閱讀權限: 0
註冊時間: 2010-12-12
最後登錄: 2019-6-8

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2011-8-7 18:25 | 只看該作者

[發問] 請問要如何將二列分別貼到吚二欄呢?

各位大大: 如題

要如何把a2欄的二列分別貼到b2欄和c2欄

樓主熱帖

infoverdad

中學生 Rank: 2

帖子: 175
主題: 8
精華: 0
積分: 207
點名: 207
作業系統: WIN 10
軟體版本: Office 2010
閱讀權限: 20
性別: 女
註冊時間: 2011-6-30
最後登錄: 2026-10-1

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章

2^#

發表於 2011-8-7 19:18 | 只看該作者

回復 1# gctsai

您的資料顯然在同一格內有用 "ALT+Enter"換行
方法一: 資料=> 資料剖析=> 分隔符號 => 選其他: 鍵入ALT+10

方法二:用公式
以=find("[按住ALT+Enter換行]",a2)取得換行位元數
再以mid公式取得兩列資料

solution.rar (1.39 KB)
以A2為例:
在E2鍵入公式=FIND("
",A2)
取得換行位元數為4 (E2的值)
B2鍵入公式=MID($A2,1,$E2-1)
C2鍵入公式=MID($A2,$E$2+1,LEN($A2)-$E2)

TOP

Happkkevin

　暱稱: Kevin

中學生 Rank: 2

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

3^#

發表於 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! 代碼

TOP

gctsai

等待驗證會員

帖子: 42
主題: 10
精華: 0
積分: 72
點名: 0
作業系統: WIN
軟體版本: XP
閱讀權限: 0
註冊時間: 2010-12-12
最後登錄: 2019-6-8

4^#

發表於 2011-8-8 21:22 | 只看該作者

回復 3# Happkkevin

大大:程式是可以用的,但是
1.數字最前面的0不見了?
2.如果是貼到sheet2的a2,b2呢?

TOP

Happkkevin

　暱稱: Kevin

中學生 Rank: 2

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

5^#

發表於 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! 代碼

TOP

gctsai

等待驗證會員

帖子: 42
主題: 10
精華: 0
積分: 72
點名: 0
作業系統: WIN
軟體版本: XP
閱讀權限: 0
註冊時間: 2010-12-12
最後登錄: 2019-6-8

6^#

發表於 2011-8-8 22:11 | 只看該作者

回復 5# Happkkevin

大大:可是數字前面的0還是不見了
如:原先是008010114106
貼到sheet2後變成 8010114106了

TOP

Happkkevin

　暱稱: Kevin

中學生 Rank: 2

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

7^#

發表於 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! 代碼

TOP

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

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

論壇貢獻勳章

8^#

發表於 2011-8-8 22:13 | 只看該作者

把目的儲存格設為文字格式就可避免前面0不見了。

TOP

gctsai

等待驗證會員

帖子: 42
主題: 10
精華: 0
積分: 72
點名: 0
作業系統: WIN
軟體版本: XP
閱讀權限: 0
註冊時間: 2010-12-12
最後登錄: 2019-6-8

9^#

發表於 2011-8-8 22:26 | 只看該作者

回復 8# oobird

大大,請問一下那有沒有辦法用vba呢?

TOP

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

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

論壇貢獻勳章

10^#

發表於 2011-8-8 22:41 | 只看該作者

Sheets("sheet2").[b:b].NumberFormatLocal = "@"

放在前面，不要在循環中

TOP