[發問] 請問如何在貼資料時，第二筆資料自動貼自第一筆資料下方??(已解決)

棋語鳥鳴

如標題所示:我想貼不同來源的資料至同一個工作表中，請問要如何設定巨集，使第二筆資料貼至第一筆資料下方!
test.rar (8.41 KB)

下載次數: 24

2011-8-16 19:56

棋語鳥鳴

回復 6# GBKEE


    這次測試(ok)已符合我的需求，謝謝您細心的指導!

GBKEE

回復 5# 棋語鳥鳴

1. Sub Ex()
   
2.     Dim E, Rng As Range
   
3.     With Sheets("資料複製區")
   
4.         For Each E In .UsedRange.Columns
   
5.             If Application.CountA(E) > 1 Then
   
6.                 Set Rng = .Range(E.Cells(2), E.Cells(Rows.Count).End(xlUp)).SpecialCells(xlCellTypeConstants)
   
7.                 With Sheets("資料黏貼區").Range("A" & Rows.Count).End(xlUp)
   
8.                     If .Cells(1).Row = 1 Then
   
9.                         Rng.Copy .Cells(1)
   
10.                     Else
    
11.                         Rng.Copy .Cells(2)
    
12.                     End If
    
13.                 End With
    
14.             End If
    
15.         Next
    
16.     End With
    
17. End Sub

複製代碼

棋語鳥鳴

回復 4# GBKEE
不好意思是我題目沒寫清楚!
Q1,資料1、2、3為多筆數據連結之結果，有時會出現空白(無數據)之情況!
Q2,塞選值不一樣 是指有時可能會有好幾個檔案(但是會分別丟進去塞選出我要的值)，而想把這幾個不同檔案的值塞選出來轉到同一個工作表中，作資料整理。

GBKEE

回復 3# 棋語鳥鳴
Q1.此巨集測試結果，如果2、3沒資料，會出現錯誤!請教要如何修改??
2樓的程式是 依據你的範例而作的 ,你要說明清楚有哪些狀況
Q2.如果資料來源都在A欄(但是塞選值不一樣)，但也是想每次都貼至前一次的值下方，請問要如何更改其巨集?
請問什麼是塞選值不一樣  

棋語鳥鳴

回復 2# GBKEE
1.此巨集測試結果，如果2、3沒資料，會出現錯誤!請教要如何修改??

2.如果資料來源都在A欄(但是塞選值不一樣)，但也是想每次都貼至前一次的值下方，請問要如何更改其巨集?

GBKEE

回復 1# 棋語鳥鳴

1. Sub Ex()
   
2.     Dim E, Rng As Range
   
3.     With Sheets("資料複製區")
   
4.         For Each E In Array(1, 3, 5)
   
5.             Set Rng = .Range(.Columns(E).Cells(2), .Columns(E).Cells(2).End(xlDown))
   
6.             With Sheets("資料黏貼區").Range("A" & Rows.Count).End(xlUp)
   
7.                 If .Cells(1).Row = 1 Then
   
8.                     .Cells(1).Resize(Rng.Rows.Count) = Rng.Value
   
9.                 Else
   
10.                     .Cells(2).Resize(Rng.Rows.Count) = Rng.Value
    
11.                 End If
    
12.             End With
    
13.         Next
    
14.     End With
    
15. End Sub

複製代碼