返回列表 上一主題 發帖

工作表同步增加資料

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

版主Rank: 7Rank: 7Rank: 7

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

貴賓勳章熱烈參與勳章好學求知勳章
1# 跳轉到 »
發表於 2015-2-27 02:11 | 顯示全部帖子
本帖最後由 HUNGCHILIN 於 2015-2-27 02:13 編輯

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

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

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

Book1.zip (14.03 KB)
Hung-Chi Lin/林宏吉
HUNGCHILIN/林宏吉的OFFICE專欄

TOP

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

版主Rank: 7Rank: 7Rank: 7

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

貴賓勳章熱烈參與勳章好學求知勳章
2#
發表於 2015-6-17 23:13 | 顯示全部帖子
回復 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
複製代碼
Hung-Chi Lin/林宏吉
HUNGCHILIN/林宏吉的OFFICE專欄

TOP

        靜思自在 : 話多不如話少，話少不如話好。
返回列表 上一主題