返回列表 上一主題 發帖

[發問] 不連續資料的選取與輸出

巴克斯

帖子
32 
主題
9 
精華
0 
積分
122 
點名
0  
作業系統
WINXP 
軟體版本
Office XP 
閱讀權限
20 
性別
男 
註冊時間
2010-5-14 
最後登錄
2024-3-20 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2013-10-14 12:17 | 只看該作者

[發問] 不連續資料的選取與輸出

本帖最後由 巴克斯 於 2013-10-14 12:19 編輯



如圖,想於輸入位置選取不連續資料後,希望執行巨集後將選取資料逐一列在輸出的位置
目前實際結果是列出選取區域的第一筆下連續區域資料
非我想要的不連續資料,請問應該如何達成呢?
謝謝
  1. Sub nn()
  2. Range("輸出").ClearContents

  4. For i = 1 To Selection.Count
  5.     Range("輸出")(i) = Selection(i)
  6. Next

  8. End Sub
複製代碼
不連續選擇&輸出.rar (12.93 KB)
收藏 分享

owen06
　暱稱: 阿軒

中學生Rank: 2

帖子
396 
主題
12 
精華
0 
積分
425 
點名
1  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
20 
性別
男 
來自
台中 
註冊時間
2013-7-2 
最後登錄
2024-8-23 

2015羊年全勤獎章2014馬年全勤獎章熱烈參與勳章
2#
發表於 2013-10-14 12:45 | 只看該作者
回復 1# 巴克斯

請問這樣符合需求嗎？
  1. Sub nn()
  2. Range("輸出").ClearContents

  4. Selection.Copy [E3]


  7. End Sub
複製代碼

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

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

論壇貢獻勳章
3#
發表於 2013-10-14 12:49 | 只看該作者
  1. For Each c In Selection
  2. [e65536].End(3)(2) = c.Value
  3. Next
複製代碼

TOP

巴克斯

帖子
32 
主題
9 
精華
0 
積分
122 
點名
0  
作業系統
WINXP 
軟體版本
Office XP 
閱讀權限
20 
性別
男 
註冊時間
2010-5-14 
最後登錄
2024-3-20 
4#
發表於 2013-10-14 17:33 | 只看該作者
回復  巴克斯

請問這樣符合需求嗎？
owen06 發表於 2013-10-14 12:45



    感謝回覆,想不到這樣就解決了:victory:

TOP

        靜思自在 : 君子立恆志，小人恆立志。
返回列表 上一主題