⑴ EXCEL如何用宏命令製作快捷查找並定位到對應單元格
1、只要選中復制部分內容，再按ctrl
和c鍵，完成復制。2、到另一個表格的目標位置，同時按ctrl
和v鍵，完成粘貼。另外，多個部分的選中方法是：按住ctrl鍵的同時，點擊想要的點擊單元格。
⑵ excel選中查找結果所在行，編寫一個宏命令
試試這個：
Sub (strKeyword As String)
Dim oRangeCombined As Range
Dim oRangeFound As Range
Dim strFirstAddress As String
Set oRangeFound = Cells.Find(strKeyword)
If Not oRangeFound Is Nothing Then
Set oRangeCombined = oRangeFound
strFirstAddress = oRangeFound.Address
Do
Set oRangeCombined = Union(oRangeCombined, oRangeFound)
Set oRangeFound = Cells.FindNext(oRangeFound)
Loop While Not oRangeFound Is Nothing And oRangeFound.Address <> strFirstAddress
End If
If Not oRangeCombined Is Nothing Then
oRangeCombined.EntireRow.Select
End If
End Sub
調用時傳入關鍵字即可，如：
Sub MyMacro
"要查找的關鍵字"
End Sub
⑶ excel 使用宏 在一列數據中查找3個數據，在這列數據中連續出現，則返回第四個單元格的數據
試試以下公式
=INDEX(D:D,MIN(IF((D2:D130=F2)*(D3:D131=F3)*(D4:D132=F4),ROW(5:133),888)))
公式輸入結束後請按【組合鍵】確認！！！
⑷ vfp中的查找記錄的命令有哪些
在VFP中，查找記錄的命令有locate,find,seek.
⑸ 宏命令是什麼
宏命令完全手冊
一：基礎教程
1.什麼是宏命令？
玩過EQ的都知道一點宏的知識，比如組隊時用來告訴隊友你的行動，告訴目標等。最簡單的比如puller 常用的： /v %t過來了，大家集中火力。 法師常用的： /v 我要催眠%t，大家不要打醒他 這些宏個性鮮明，是EQ的一大樂趣之一。
然而EQ畢竟是N年前的游戲，宏也比較簡單，和它比起來。WOW的宏就復雜和強大的多了。它的函數就有上千種，如果都掌握，能實現許多匪夷所思的功能。
一個宏可以完成一個相對比較復雜的命令.比如戰斗中發布命令,如果打字當然不算麻煩,但在戰斗中卻很要命.浪費了時間和生命.一個簡單的宏便可以用一個鍵來完成這一切.
2.宏命令的設置流程：
首先，回車，再敲/MACRO。看見了吧？會彈出一個窗口，上面有New（新建宏命令）和Complete（完成宏命令）兩個按鍵。點New，又會彈出一個窗口，哇，花花綠綠的，裡麵包括了WOW幾乎所有的技能圖標，隨你喜歡，隨便選一個！它就是你設置的宏命令的圖標了，給它取個名字吧！方便你用的時候好找。然後回到第一個窗口，在它上面有一個輸入菜單（別告訴我找不到…它可是佔了這個窗口的一半多…）在裡面輸入特定的內容，然後點Complete。接下來你要做的就是把這個代表你宏命令的圖標用滑鼠左鍵拉到快捷欄里，想怎麼用就怎麼用…
3.下面就是怎樣設置宏的內容了,簡單的設置大家可以看我們網站上"基礎"篇的宏介紹.
相信很多人都知道WOW中的斜杠"/"和表情命令.宏可以將這些命令按照自己對條件的設置串聯起來,比如:/Kneel是讓你跪下來的動作而/say就是最基礎的對話動作
我們現在用一個宏把他們串起來:
第一行內容：「/Kneel」
第二行內容：「/say 如果你不嫁給我，那麼我就一輩子不起來…」 」
這樣你的人物就會先下跪再說:"如果你不嫁給我，那麼我就一輩子不起來…"
宏可以應用所有WOW中已經定義了的斜杠"/"和表情命令,更要命的是,宏甚至可以應用人物的魔法和技能,
只需要在宏的定義過程中應用"/cast"命令,下面是已知的一些常用命令:
/Assist 這是個援助進攻的命令。當你的隊伍同時面對幾個敵人時，只要點擊自己的隊友（一般是隊伍中的戰士），然後使用這個命令，你的目標就會變成戰士所選中的目標。大家集中火力消滅一個起！
/Cast 這是個使用技能的命令。當你在宏命令里輸入/Cast 技能名（技能等級）或者只要按住Shift同時用滑鼠點擊一下你想要輸入的技能的圖標。例如當你是一個戰士，想製作一個使用戰斗怒吼的宏時，你可以輸入/Cast Battle Shout（Rank 1）或者是直接按住Shift點擊Battle Shout這個技能的圖標。當然你可以在一個宏的不同行上輸入幾個技能，那麼當你使用這個宏時，幾個技能就會一起釋放出來，再用不著你像章魚一樣同時按下幾個鍵了 。
%t 這個符號也許會經常出現在你的宏命令里，它是一個代碼，代表你當前所選中的人名。例如，你在宏里寫下這么一句。（注意：後面要加一空格。） 「/g %t ，今天天氣真好，有沒興趣和我一起上山采蘑菇…」
如果你點中一位名叫苯笨的玩家，那麼當你按下這個宏時，你就會說：「笨笨，今天天氣真好，有沒興趣和我一起上山采蘑菇…」
/Target 這是一個自動選擇目標的命令，你可以在宏里輸入/Target （xxx），那麼當你按下這個宏時，你將自動選定這個叫xxx的目標。
/in 這是一個延時命令,時間以秒為單位.同時它不支持攻擊指令.格式:/in 3 dance 三秒後跳舞，如/in 3 dance，就是在3秒後跳舞，
/say start!
/in 3 say 3s later
/in 6 say 6s later
二：進階教程
一些有用的 Macro
1。允許你在窗口和全屏狀態之間切換
/script SetCVar("gxWindow", 1 - GetCVar("gxWindow"));
/console gxRestart
2。對於法師，必須要有的：將「X」換為你目前的變形術等級（下同）；用它替換掉變形術技能。當你在隊伍之外時使用它會得到「你不在隊伍中。」的信息，但在隊伍中的時候其它同伴會了解到你將釋放的變形術目標。
/p Sheeping >>> %t <<<
/cast Polymorph (Rank X)
3。作為一個術士，這是在隊伍中使用的宏：首先將目標轉為拖怪手或者坦克正在攻擊的目標，然後命令寵物向前攻擊，跟著一個虛弱詛咒。
/assist 隊伍中的拖怪手或者坦克的名字
/script PetAttack();
/cast Curse of Weakness (Rank X)
4。從背包和袋子里切換身上的武器
/script if ( not CursorHasItem() ) then PickupContainerItem(, );
PickupInventoryItem( ); end
bag# - 使用哪一個袋子的物品（0、1、2、3、4。0是背包）
slot# - 袋子里的位置（從0至左上）
equip# - 16 是主要武器， 17 是副武器
5。這個宏治療隊伍里你指定的人，如果你不在隊伍中它會治療你自己。然後會自動將目標切換回你最後一個敵人。它同時還會使用隊聊提醒隊友你會治療哪一個人。
/script if (UnitName("target") ~=nil and UnitIsFriend("player","target")) then
CastSpellByName("Heal(Rank X)") SendChatMessage("Incoming Heal to %T", "Party") else
TargetUnit("player") CastSpellByName("Heal(Rank X)") TargetLastEnemy(); end
6。加速任務顯示速度
/script QUEST_DEscriptION_GRADIENT_CPS = 600000
/script RegisterForSave("QUEST_DEscriptION_GRADIENT_CPS")
/script DEFAULT_CHAT_FRAME:AddMessage("quest text will scroll faster now");
7。消除等待接受任務的時間
/script AcceptQuest()
8。這個宏可以在路上自動護送玩家做任務。
/assist [player name]
/cast 法術(Rank X)
/target [player name]
/follow [player name]
9。切換主副武器，詳情看第四條
/script PickupInventoryItem(16); PickupInventoryItem(17);
10。在沒有目標或者目標是敵人的時候給自己加增益魔法或治療。
CastSpellByName("Spell Name(Rank X)");
if ((SpellIsTargeting()) and (not UnitIsFriend("player","target")))
then
SpellTargetUnit("player");
end;
TargetLastEnemy();
11。切換雙手武器與單手 盾或者雙手揮舞武器
/script PickupInventoryItem(17);if(CursorHasItem()) then PickupContainerItem
(4,2);PickupContainerItem(4,1);PickupInventoryItem(16);else PickupContainerItem
(4,1);PickupInventoryItem(16);PickupContainerItem(4,2);PickupInventoryItem(17);end
12。設定「真實滑鼠視野」
/script CameraOrSelectOrMoveStart(arg1);
想取消就再次輸入。
13。切換近程技能欄和遠程技能欄
/script CURRENT_ACTIONBAR_PAGE = 2;
/script ChangeActionBarPage();
/cast aspectofmon key (just use the left click)
/script CURRENT_ACTIONBAR_PAGE = 1;
/script ChangeActionBarPage();
/cast aspectofhawk (just use the left click)
14。牧師對隊友的一鍵加血，比如一號鍵給第一隊友加血，二號鍵給第二隊友加血，免除了還要滑鼠確
定目標的操作。依次類推，從第一個人到最後一個
給隊友1加血:
/script TargetUnit(GetPartyMember(1))
CastSpellByName(Heal(Rank X)) TargetLastEnemy()
給隊友2加血:
/script TargetUnit(GetPartyMember(2)) CastSpellByName(Heal(Rank X)) TargetLastEnemy()
給隊友3加血:
/script TargetUnit(GetPartyMember(3)) CastSpellByName(Heal(Rank X)) TargetLastEnemy()
15。一鍵解決喂養寵物：這個宏會從最左邊的袋子里的第一個位置拿出食物喂養寵物，如果所在的位置
沒有食物，它會自動打開袋子。
/script if (not PlayerFrame.inCombat) then if (not GetContainerItemLink(4, 1)) then
OpenBag(4); else CastSpellByName("Feed Pet"); PickupContainerItem(4, 1); end end
16。術士宏
1）如果目標生命大於20，釋放抽取生命法術，否則使用靈魂抽取。
/script if (UnitHealth("target")>20) then CastSpellByName("Drain Life(Rank X)") else
CastSpellByName("Drain Soul(Rank 2)") end;
2）虛弱詛咒版本
/script if (UnitMana("target")>0) then CastSpellByName("Curse of Tongues(Rank X)") else
CastSpellByName("Curse of Weakness(Rank X)") end;
17.先治療自己，然後自動選中上次的敵人
/target Pugar //選擇自己，假設自己的名字是Pugar
/cast Lesser Heal (Rank 1) //施展次級治療rank1
/script TargetLastEnemy(); //重新選擇剛剛選擇的敵人
/script AttackTarget(); //攻擊，等同於右鍵點擊敵人
18.對於一個術士很有用的宏：首先將目標轉為拖怪手或者坦克正在攻擊的目標，然後命令寵物向前攻擊
，跟著一個虛弱詛咒。
/assist 隊伍中的拖怪手或者坦克的名字
/script PetAttack();
/cast Curse of Weakness (Rank X)
19.等治療完之後提醒別人注意下自己有可能被怪打，不加延時的話，就沒這個效果了。
/p healing %T, need 3s, don"t run away
/cast heal (rank 1)
/in 4 p cured %T 300HP,please notice the enemies turn on me^_^
20.在路上自動護送朋友做任務。
/assist [player name]
/cast 法術(Rank X)
/target [player name]
/follow [player name]
三：高級教程
WOW的宏函數庫可以去這兩個地方查：
http://www.cosmosui.org/texts/BlizzardCommands.xml
http://www.wowwiki.com/index.php/World_of_Warcraft_API
函數的使用比較簡單，學習過編程的都比較容易上手，基本的用法是在函數前加/script 來使用。比如
/script CURRENT_ACTIONBAR_PAGE = X;
/script ChangeActionBarPage();
就是將你的快捷欄翻到第X頁。
函數庫中有許多函數都是非常有用和方便的，比如一次打開所有包包：
/script OpenAllBags();
配合關閉包包的函數，一次關閉所有包的宏也可以實現：
/script CloseBag(0);
/script CloseBag(1);
/script CloseBag(2);
/script CloseBag(3);
/script CloseBag(4);
怎麼樣，下次你賣東西的時候不會一個個開包關包了吧？
使用函數還不是最恐怖的，恐怖的是WOW的宏是可以用條件判斷的,看下面這兩個：
/script if ( GetComboPoints() >= 3 ) then CastSpellByName("Rip(Rank 2)"); else if (
UnitMana("player") >= 40 ) then CastSpellByName("Rake(Rank 1)"); end end
據說這個包含if，then的宏可以讓盜賊實現自動根據combo點數來使用技能（未測試），其中還使用了角
色MANA值的調用，恐怖吧？還有這個查找spell的宏：
function GetSpellIdByItsName(myWantedSpell, myWantedRank)
local spellId = 1;
local spellBook = "spell";
local spellName, rankName;
spellName, rankName = GetSpellName(spellId, spellBook);
while (spellName ) do
if ( ( spellName == myWantedSpell ) and ( ( not myWantedRank ) or ( rankName = myWantedRank
) ) ) then return spellId; end
spellName, rankName = GetSpellName(spellId, spellBook);
end
return -1;
end
裡面可以自己定義function，還使用了while，do這樣的循環，是不是讓你想到了N種應用的可能呢？
遺憾的是，目前官方似乎沒有提供延時的宏，所以在戰斗中使用多種有延時的技能是無法實現的（無延時的技能可以實現同時使用），類似換其他武器－使用技能或法術－換回武器這樣的功能也無法實現，
（所謂用宏實現劍盾戰士換雙手武器MS再換回來是行不通的），不過使用COSMOS的朋友可以用/in 來實現非戰斗指令的延時，比如
/in 3 say hi 就會在3秒後說句hi。
/in 6 /script MoveForwardStart(arg1);
就會在6秒後向前跑。
雖然法術和技能無法用/in指令來延時，但這樣已經很強大了，比如，你可以編出各種運動的宏，如兜後，轉身等。PVP時估計是必不可少的。
下面是一個玩家寫的雙手武器戰士自動逃跑的宏：
/script UseContainerItem(0, 2);ActionButtonDown(11);ActionButtonUp(11);ActionButtonDown
(12);ActionButtonUp(12);
/cast Thunder Clap(Rank 1);
/script TurnLeftStart(arg1);
/in 1 /script TurnLeftStop(arg1);ToggleAutoRun();
使用這個宏的條件：在大包包第二格放了回復葯，快捷欄第11，12分別是一單手一盾的快捷方式。
使用這個宏後，角色自動喝回復葯，裝備上盾，使用Thunder Clap（這三個動作同時進行），向後轉180度後開自動跑步鍵逃走。其中技能等可以根據需要自己改。怎麼樣，是不是很誇張啊，哈哈。
還有一些有用的宏：
切換裝備，
雙手切換單手並換第二個快捷欄，快捷欄第11，12分別是一單手一盾的快捷方式
/script ActionButtonDown(11);ActionButtonUp(11);ActionButtonDown(12);ActionButtonUp(12);
/script CURRENT_ACTIONBAR_PAGE = 2;
/script ChangeActionBarPage();
單手切換雙手並換回第一快捷欄，快捷欄12是一雙手武器快捷方式
/script ActionButtonDown(12);ActionButtonUp(12);
/script CURRENT_ACTIONBAR_PAGE = 1;
/script ChangeActionBarPage();
幾個簡單的宏
1. 對自己使用綳帶
/script TargetUnit("Player");
/use Mageweave Bandage
/script TargetLastEnemy();
* 這里用的時 Mageweave Bandage ，你可以改成適合你自己的綳帶名
* use 是 Cosmos 支持的命令，你必須安裝 Cosmos 才能使用這個宏，如果你沒有 Cosmos，使用下面的宏(綳帶必須放在主背包第一格)
/script TargetUnit("Player");
/script UseContainerItem(0,1);
/script TargetLastEnemy();
2. 對敵人的 Pet 使用技能
/script TargetUnitsPet("target");
/cast Blind
/script TargetLastEnemy();
* Blind 是技能名，你可以用自己的技能，這里用了盜賊的 Blind (我是盜賊啦，呵呵)
** /script 是使用 腳本 的命令，可供使用的命令參考附件
** 可以用 Shift 點擊 技能書里圖標的方式在宏中添加釋放技能的命令
** 可以用 Shift 點擊 物品的方式在宏中添加物品名
3. 打開所有背包
/script OpenBag(0);
/script OpenBag(1);
/script OpenBag(2);
/script OpenBag(3);
/script OpenBag(4);
打開所有背包，可能
/script OpenAllBags()
一樣搞定:P
熱鍵Shift B 也是可以的
4.戰士用，雙手武器切換單手武器＋盾：
首先在快捷欄10、11、12（也就是0、 -、 =的位置）拖上雙手武器、單手武器、盾的快捷方式；
雙手武器：
/script ActionButtonDown(10);ActionButtonUp(10);
單手武器＋盾：
/script ActionButtonDown(11);ActionButtonUp(11);ActionButtonDown(12);ActionButtonUp(12);
以下命令全部中空格用下劃線_來表示
%後面的都是變數
=各種命令分類收集=
參數設置
%t
切換當前目標命令
/target_%name
/assist_%name
/script_TargetLastEnemy();
游戲動作
/cast_%skillname(rank_%d)
/f
/script_UseAction(n%d, %d);
設置延遲命令
/pause_%d
聊天常用命令
/s_
/p_
/g_
/raid_
=應用部分說明=
聊天部分命令我就省略了...重點說明游戲中實際關繫到游戲操作的命令
首先%t是指當前目標名稱，%t大多是用在聊天中...比如：
...
你好，%t
我開始攻擊%t，大家請注意...
Pull
/script TargetNearestEnemy();
/p Pulling %t
/script AttackTarget();
/v inc
Assist
/assist %t
/script AttackTarget();
UsePoison
/script UseContainerItem(bag,slot); PickupInventoryItem(16);
UseContainerItem(bag,slot);
PickupInventoryItem(17);
/in 1740 /script DEFAULT_CHAT_FRAME:AddMessage("Poison wearing off in one minute")
⑹ Excel 輔助查找與快速輸入-高級宏命令,最好有快速搜索窗口
選中你需要設置的單元格，點擊"數據\有效性"，打開"數據有效性"對話框；選擇"設置"選項卡，在"允許"下拉菜單中選擇"序列"；「來源」欄直接輸入=INDIRECT("SheetX!$D$2:$D$38"),選上"忽略空值"和"提供下拉菜單"兩個復選框。點擊"輸入信息"選項卡，選上"選定單元格顯示輸入信息"，在"輸入信息"中輸入"請在這里選擇"就行了，你試試，看能不能幫到你。
⑺ access宏操作，，命令條件怎麼用最好有一個例子，，謝謝，，
具體使用方法，在ACCESS中按F1查看幫助文件。
功 能 分 類 宏 命 令 說 明
打開 OpenDataAccessPage 在頁視圖或設計視圖中打開數據訪問頁
OpenForm 在窗體視圖、窗體設計視圖、列印預覽或數據表視圖中打開窗體
OpenMole 在指定過程的設計視圖中打開指定的模塊
OpenQuery 打開選擇查詢或交叉表查詢
OpenReport 在設計視圖或列印預覽視圖中打開報表或立即列印該報表
OpenTable 在數據表視圖、設計視圖或列印預覽中打開表
查找、篩選記錄 ApplyFilter 對表、窗體或報表應用篩選、查詢或SQL的WHERE子句，以便限制或排序表的記錄，以及窗體或報表的基礎表，或基礎查詢中的記錄
FindNext 查找符合最近FindRecord操作或「查找」對話框中指定條件的下一條記錄
FindRecord 在活動的數據表、查詢數據表、窗體數據表或窗體中，查找符合條件的記錄
GoToRecord 在打開的表、窗體或查詢結果集中指定當前記錄
ShowAllRecords 刪除活動表、查詢結果集或窗體中已應用過的篩選
焦點 GoToControl 將焦點移動到打開的窗體、窗體數據表、表數據表或查詢數據表中的欄位或控制項上
GoToPage 在活動窗體中，將焦點移到指定頁的第一個控制項上
SelectObject 選定資料庫對象
設置值 SendKeys 將鍵發送到鍵盤緩沖區
SetValue 為窗體、窗體數據表或報表上的控制項、欄位設置屬性值
更新 RepaintObjet 完成指定的資料庫對象所掛起的屏幕更新，或對活動資料庫對象進行屏幕更新。這種更新包括控制項的重新設計和重新繪制
Requery 通過重新查詢控制項的數據源，來更新活動對象控制項中的數據。如果不指定控制項，將對對象本身的數據源重新查詢。該操作確保活動對象及其包含的控制項顯示最新數據
列印 PrintOut 列印活動的數據表、窗體、報表、模塊數據訪問頁和模塊，效果與文件菜單中的列印命令相似，但是不顯示列印對話框
控制 CancelEvent 取消引起該宏執行的事件
RunApp 啟動另一個Windows或MS-DOS應用程序
RunCode 調用Visual Basic Function過程
控制 RunCommand 執行Access菜單欄、工具欄或快捷菜單中的內置命令
RunMacro 執行一個宏
RunSQL 執行指定的SQL語句以完成操作查詢，也可以完成數據定義查詢
StopAllMacros 終止當前所有宏的運行
StopMacro 終止當前正在運行的宏
窗口 Maximize 放大活動窗口，使其充滿Access主窗口。該操作不能應用於Visual Basic編輯器中的代碼窗口
Minimize 將活動窗口縮小為Access主窗口底部的小標題欄。該操作不能應用於Visual Basic編輯器中的代碼窗口
MoveSize 能移動活動窗口或調整其大小
Restore 將已最大化或最小化的窗口恢復為原來大小
顯示信息框，響鈴警告 Beep 通過計算機的揚聲器發出嘟嘟聲
Echo 指定是否打開回響，例如宏執行時顯示其運行結果，或宏執行完才顯示運行結果。此處還可設置狀態欄顯示文本
Hourglass 使滑鼠指針在宏執行時變成沙漏形式
Msgbox 顯示包含警告信息或其他信息的消息框
SetWarnings 打開或關閉系統消息
復制 CopyObject 將指定的對象復制到不同的Access資料庫，或復制到具有新名稱的相同資料庫。使用此操作可以快速創建相同的對象，或將對象復制到其他資料庫中
刪除 DeleteObject 刪除指定對象；未指定對象時，刪除資料庫窗口中指定對象
⑻ excel宏命令 如何查找並定位相應單元格
占個位置先，宏稍後貼上 ^-^
----------------------------------
代碼如下(要求第一行為姓名，第一列為日期)，直接執行即可（經常用的話，可以設置一個快捷方式，或者放一個圖標在工具欄或菜單條中）：
Sub 人員日期定位宏()
Dim FindName As String, toDay As Date, x As Integer, y As Integer
Dim oldcell As Range
Set oldcell = ActiveCell
FindName = ActiveCell.Value
toDay = Date
FindName = InputBox("請輸入你要查詢的人員姓名：", "人員&日期定位宏", FindName)
If FindName = "" Then Exit Sub
Rows("1:1").Select
On Error GoTo notFindName:
Selection.Find(What:=FindName, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, MatchByte:=False, SearchFormat:=False).Activate
'LookAt:=xlWhole 表示單元格匹配，LookAt:=xlPart 表示部分匹配
x = ActiveCell.Column()
Columns("A:A").Select
On Error GoTo notFindDate:
Selection.Find(What:=toDay, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, MatchByte:=False, SearchFormat:=False).Activate
y = ActiveCell.Row()
On Error GoTo 0
Cells(y, x).Select
Exit Sub
notFindName:
MsgBox "沒有找到你需要的人員姓名（" & FindName & "）！", vbInformation + vbOKOnly, "人員&日期定位宏"
oldcell.Select
Exit Sub
notFindDate:
MsgBox "沒有找到今天的日期（" & CStr(toDay) & "）！", vbInformation + vbOKOnly, "人員&日期定位宏"
Cells(1, x).Select
End Sub
註：它會將你所選擇的單元格內容默認為要查找的人員姓名，當然你可以修改之。
有疑問或問題請Hi我或給我發BaiDu消息。
GoodLuck!
⑼ EXCEL宏命令 查找並填充指定內容
你給的圖片不全，給的信息也不充分... 下面是按你說的要求寫的
Sub 空滿刪()
Dim a, b, c
For a = 2 To WorksheetFunction.CountA(Sheet1.Columns(1))
For c = 1 To 10 Step 3
For b = 7 To WorksheetFunction.CountA(Sheet2.Columns(c))
If Sheet1.Cells(a, 1) = Sheet2.Cells(b, c) Then
Sheet2.Cells(b, c + 1) = ""
Sheet2.Cells(b, c + 2) = Now()
End If
Next
Next
Sheet1.Cells(a, 1) = ""
Next
For a = 2 To WorksheetFunction.CountA(Sheet1.Columns(4))
For c = 1 To 10 Step 3
For b = 7 To WorksheetFunction.CountA(Sheet2.Columns(c))
If Sheet1.Cells(a, 4) = Sheet2.Cells(b, c) Then
Sheet2.Cells(b, c + 1) = Sheet1.Cells(a, 4)
Sheet2.Cells(b, c + 2) = Now()
End If
Next
Next
Sheet1.Cells(a, 4) = ""
Next
End Sub
我這是默認你第一個表在「sheet1」，第二個表在「sheet2」里，並且在表2里有4列數據