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

巴克斯

下載 (13.96 KB)

2013-10-14 12:10

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

1. Sub nn()
   
2. Range("輸出").ClearContents
   
3. 
   
4. For i = 1 To Selection.Count
   
5.     Range("輸出")(i) = Selection(i)
   
6. Next
   
7. 
   
8. End Sub

複製代碼

不連續選擇&輸出.rar (12.93 KB)

下載次數: 11

2013-10-14 12:18

巴克斯

回復  巴克斯

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

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

oobird

1. For Each c In Selection
   
2. [e65536].End(3)(2) = c.Value
   
3. Next

複製代碼

owen06

回復 1# 巴克斯

請問這樣符合需求嗎？

1. Sub nn()
   
2. Range("輸出").ClearContents
   
3. 
   
4. Selection.Copy [E3]
   
5. 
   
6. 
   
7. End Sub

複製代碼