leiru

高中生 Rank: 3 Rank: 3

帖子: 336
主題: 141
精華: 0
積分: 625
點名: 0
作業系統: WINDOWSXP
軟體版本: OFFICE2003
閱讀權限: 50
性別: 女
來自: 台北縣
註冊時間: 2010-8-5
最後登錄: 2025-10-21

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2015-2-11 22:39 | 只看該作者

工作表同步增加資料

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

Book1.rar (6.15 KB)

樓主熱帖

joyce

Leo1318

小學生 Rank: 1

帖子: 19
主題: 3
精華: 0
積分: 29
點名: 0
作業系統: WINXP
軟體版本: OFFICE2007
閱讀權限: 10
性別: 男
註冊時間: 2010-5-14
最後登錄: 2023-9-22

33^#

發表於 2015-6-19 10:47 | 只看該作者

回復 33# HUNGCHILIN

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

TOP

HUNGCHILIN

　暱稱: 阿吉
　頭銜: 不恥下問,不斷學習,才會進步

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 647
主題: 190
精華: 24
積分: 1041
點名: 0
作業系統: windows7
軟體版本: Office 2010 ; OOO3.0 ; Google
閱讀權限: 100
性別: 男
來自: 竹南
註冊時間: 2010-5-2
最後登錄: 2022-6-24

貴賓勳章熱烈參與勳章好學求知勳章

32^#

發表於 2015-6-17 23:13 | 只看該作者

回復 32# Leo1318

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

複製代碼

Hung-Chi Lin/林宏吉
HUNGCHILIN/林宏吉的OFFICE專欄

TOP

frjtbippp

小學生 Rank: 1

帖子: 3
主題: 0
精華: 0
積分: 3
點名: 0
作業系統: Winxp
軟體版本: office2007
閱讀權限: 10
註冊時間: 2011-10-7
最後登錄: 2026-8-13

31^#

發表於 2015-3-6 21:31 | 只看該作者

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

TOP

HUNGCHILIN

　暱稱: 阿吉
　頭銜: 不恥下問,不斷學習,才會進步

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 647
主題: 190
精華: 24
積分: 1041
點名: 0
作業系統: windows7
軟體版本: Office 2010 ; OOO3.0 ; Google
閱讀權限: 100
性別: 男
來自: 竹南
註冊時間: 2010-5-2
最後登錄: 2022-6-24

貴賓勳章熱烈參與勳章好學求知勳章

30^#

發表於 2015-2-27 02:11 | 只看該作者

本帖最後由 HUNGCHILIN 於 2015-2-27 02:13 編輯

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

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

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