⑴ 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列数据