1234
返回列表 上一主題 發帖

[發問] 如何將"採購單"內容依序寫入另一個sheet?

guaga

帖子
25 
主題
3 
精華
0 
積分
45 
點名
0  
作業系統
windowsXP 
軟體版本
2007 
閱讀權限
10 
性別
女 
來自
taipei 
註冊時間
2013-11-5 
最後登錄
2024-8-30 
31# 跳轉到 »
發表於 2013-11-28 13:20 | 只看該作者
回復 30# GBKEE

感謝版主,我改成
Sheets("訂購記錄").Cells([A65536].End(3).Row + 1, 2).Resize(1, UBound(arr) + 1) = arr
不過這個有時候都會跳到 A1048576的儲存格去
有什麼辦法解決?

未命名.JPG (54.43 KB)

未命名.JPG

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
32#
發表於 2013-11-28 16:12 | 只看該作者
本帖最後由 GBKEE 於 2013-11-28 16:13 編輯

回復 31# guaga
可能是Sheets("訂購記錄")A欄中的儲存格有完全是空白字元的字串(不會顯示,所以看不見)
執行一次這程序,可消除空白的字元

LTrim、RTrim 與 Trim 函數
傳回一個沒有前頭空白 (LTrim)、後面空白 (RTrim) 或前後均無空白的Variant (String)，其中所含為給定的字串
  1. Option Explicit
  2. Sub Ex()
  3.     Dim E As Range
  4.     With Sheets("訂購記錄")
  5.         For Each E In .Range("A:A").SpecialCells(xlCellTypeConstants, 3)
  6.             E = Trim(E)
  7.         Next
  8.         MsgBox Range("A65536").End(xlUp).Address
  9.    End With
  10. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

guaga

帖子
25 
主題
3 
精華
0 
積分
45 
點名
0  
作業系統
windowsXP 
軟體版本
2007 
閱讀權限
10 
性別
女 
來自
taipei 
註冊時間
2013-11-5 
最後登錄
2024-8-30 
33#
發表於 2013-11-29 10:25 | 只看該作者
回復 32# GBKEE
因為A:A  有帶公式 所以不能用這個方法把公式清掉
所以會亂跑的原因 是因為A:A 有帶公式的關係嗎

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
34#
發表於 2013-11-29 10:28 | 只看該作者
回復 33# guaga
請附檔看看
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

        靜思自在 : 稻穗結得越飽滿，越會往下垂，一個人越有成就，就要越有謙沖的胸襟。
1234
返回列表 上一主題