工作表同步增加資料

leiru

問題：
sheet2工作表的a欄及b欄是抓取sheet1的a欄及b欄，sheet1的a,b欄資料會不斷增加，則sheet2的a,b欄也要同步增加
請問要如何設定公式？

Leo1318

回復 33# HUNGCHILIN

謝謝版主, 但還不太了解, VBA裡的語汰, 完全沒有SHEET 2的字眼. 那程式是如何可以把SHEET 1的文字加到SHEET 2裡????

HUNGCHILIN

回復 32# Leo1318

1. Option Explicit
   
2. Sub 巨集1()
   
3. Sheets("Sheet1").Columns("A:B").AdvancedFilter Action:=xlFilterCopy, _
   
4.         CopyToRange:=Range("A1"), Unique:=False
   
5. End Sub

複製代碼

下載 (58.64 KB)

2015-6-17 23:13

frjtbippp

大家這麼那麼強喔~~~~~~~

HUNGCHILIN

阿吉很久沒電腦了
如果不用想用函數

1.手動的話.用進階篩選
2.巨集就錄製一個進階篩選.即可解決
程式簡短很多.也淺顯易懂.要手動與用VBA均可操作

當然您也可以把 巨集 放在 Private Sub Worksheet_Change(ByVal Target As Range) 內

Book1.zip (14.03 KB)

下載次數: 5

2015-2-27 02:10

sandrahuang

很有意義的範例

owen06

回復 27# oshi


    在新資料copy過去之前，先把舊資料那張表的a:b全部先清掉，
    再貼上新資料，就行了不是嗎？

oshi

不過如果遇到更新的資料量比目前少好像沒辦法清除舊的資料

就會把舊的欄位留在那邊QQ

有什麼好方法可以解決嗎?

oshi

回復 25# owen06

後來改用 currentRegion的方式解決了

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. With Target
   
3. Range("A:B").CurrentRegion.Copy
   
4. Sheets("Comparing").Range("A2").PasteSpecial Paste:=xlPasteValues
   
5. End With
   
6. End Subs

複製代碼

owen06

回復 24# oshi


    我的office 2013不會吶…
    不然你在with target的上面加個『on error resume next』試試看
    可是這樣，好像整個貼上的資料也不會同步過去。