123
返回列表 上一主題 發帖

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

Happkkevin
　暱稱: Kevin

中學生Rank: 2

帖子
56 
主題
8 
精華
0 
積分
81 
點名
0  
作業系統
Window7 
軟體版本
OFFICE2010 
閱讀權限
20 
性別
男 
註冊時間
2011-6-25 
最後登錄
2016-1-17 
12# 跳轉到 »
發表於 2011-8-8 22:45 | 只看該作者
回復 10# oobird
沒錯，放進循環中似乎是多此一舉
相信資料多時將拖慢速度，
就是這點，常常讓我犯了拖慢的缺點
學習中，有學到，感恩
100 字節以內
不支持自定義 Discuz! 代碼

TOP

Happkkevin
　暱稱: Kevin

中學生Rank: 2

帖子
56 
主題
8 
精華
0 
積分
81 
點名
0  
作業系統
Window7 
軟體版本
OFFICE2010 
閱讀權限
20 
性別
男 
註冊時間
2011-6-25 
最後登錄
2016-1-17 
11#
發表於 2011-8-8 22:41 | 只看該作者
回復 9# gctsai
  1.     Dim myArray() As String
  2.     Dim i As Integer, j As Integer
  3.     Dim KROWEND%
  4.    
  5.     KROWEND = Cells(Rows.Count, 1).End(xlUp).Row
  6.     For j = 1 To KROWEND
  7.         myArray = Split(Cells(j, 1), Chr(10))
  8.         For i = 0 To UBound(myArray)
  9.             Sheets("sheet4").Cells(j, 1).NumberFormatLocal = "@"
  10.             Sheets("sheet4").Cells(j, 1 + i).Value = myArray(i)
  11.             Next i
  12.     Next j
複製代碼
試試看文字 與 數字 呈現較喜歡那種，NumberFormatLocal = "@" 先設定
100 字節以內
不支持自定義 Discuz! 代碼

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 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

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: 8Rank: 8

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

論壇貢獻勳章
8#
發表於 2011-8-8 22:13 | 只看該作者
把目的儲存格設為文字格式就可避免前面0不見了。

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修正，還在學習中
所以有些呆板，希望有建議者告知
  1.     Dim myArray() As String
  2.     Dim i As Integer, j As Integer
  3.     Dim KROWEND%
  4.    
  5.     KROWEND = Cells(Rows.Count, 1).End(xlUp).Row
  6.     For j = 1 To KROWEND
  7.         myArray = Split(Cells(j, 1), Chr(10))
  8.         For i = 0 To UBound(myArray)
  9.             Sheets("sheet2").Cells(j, 1 + i).Value = myArray(i)
  10.             Sheets("sheet2").Cells(j, 1).NumberFormatLocal = "0000000000000"
  11.             Next i
  12.     Next j
  13.    
複製代碼
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 
5#
發表於 2011-8-8 21:42 | 只看該作者
回復 4# gctsai
  1. Sub RetsuBunKatsu1()
  2.     Dim myArray() As String
  3.     Dim i As Integer, j As Integer
  4.     Dim KROWEND%
  5.    
  6.     KROWEND = Cells(Rows.Count, 1).End(xlUp).Row
  7.     For j = 1 To KROWEND
  8.         myArray = Split(Cells(j, 1), Chr(10))
  9.         For i = 0 To UBound(myArray)
  10.            Sheets("sheet4").Cells(j, 1 + i).Value = myArray(i)
  11.         Next i
  12.     Next j
  13. End Sub


  16.    
複製代碼
Sheets("sheet4").Cells(j, 1 + i)
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 
3#
發表於 2011-8-7 19:18 | 只看該作者
本帖最後由 Happkkevin 於 2011-8-7 19:21 編輯

此適用多資料運用，以 Split 加上 Chr(10) 切割文字
  1. Dim myArray() As String
  2.     Dim i As Integer, j As Integer
  3.     Dim KROWEND%
  4.    
  5.     KROWEND = Cells(Rows.Count, 1).End(xlUp).Row
  6.     For j = 1 To KROWEND
  7.         myArray = Split(Cells(j, 1), Chr(10))
  8.         For i = 0 To UBound(myArray)
  9.             Cells(j, 2 + i).Value = myArray(i)
  10.         Next i
  11.     Next j
複製代碼
100 字節以內
不支持自定義 Discuz! 代碼

TOP

        靜思自在 : 受人點水之恩，須當湧泉以報。
123
返回列表 上一主題