Excel自动处理神器来了

早用早下班!Excel自动处理神器来了

怎么自动合并空单元格

原始数据又多又零散

个个手动合并找到空单元格太费劲

如何1min变成一图

步骤1: 用GPT生成VBA代码

划重点:

1"请扮演一名excel专家"--为GPT明确角色，提高输出质量

2"背景是xxx"-为GPT提供任务情境，在此处可以改成自己的情况

3“请提供一个无错误的VBA代码"--强调输出的形式为vba代码

步骤2: 复制GPT生成的代码

步骤3: 进入excel的vb编辑器

打开需要处理的excel表，同时按下[alt+F11)进入vb编辑器模式。

步骤4:新建模块

点击左上角[新建模块] 的按钮 (如图) ，进入代码编辑界面

步骤5: 粘贴vba代码

在弹出的编辑框中，空白处[粘贴vba代码」

步骤6: 运行vba代码

完成粘贴后，我们在vb编辑器的左上方找到蓝色三角按钮并点击，随后程序就开始帮你干活啦

步骤7:返回Excel表检查结果

在我们的数据范围里，空单元格已经完整合并，大功告成

10个AI指令，帮你juan过1亿人中的99%

用AI神器帮你3分钟画好PPT! 躺卷bi倍技能

直接一句话，AI直接把PPT全做好

先定义路径\x0d\1当前路径：\x0d\path = ApplicationThisWorkbookpath\x0d\然后，打开时，加入其余路径，和文件名。\x0d\open filename:= _\x0d\ path & "\model\" & "book1xls", Notify:=False \x0d\2同级别文件夹路径：\x0d\Sub hjs111()\x0d\t = ThisWorkbookpath '当前文件的路径\x0d\a = Split(t, "\") '以 \ 为分割，把t 保存为数组a\x0d\path0= Replace(t, a(UBound(a)), "") '把字符串t中的字符串（a(UBound(a)）替换为空。\x0d\ 'path0 & "\B\" & "book1xls" 这下明白了吧。\x0d\End Sub\x0d\\x0d\例如：若 t= C:\Documents and Settings\HackEr\桌面\x0d\ 则 数组a即为 元素分别为 C: Documents and Settings HackEr 桌面 的数组\x0d\ a(UBound(a) 为a（3）即 桌面，UBound(a)为 a数组的上界 3 \x0d\ Replace(t, a(UBound(a)), "") 即为 把t 中的第四个元素 桌面 替换 为空。

微信翻译表白是一种新型的表白方式，不过最近发现现有的微信翻译表白代码变了，所以这里带来微信翻译表白代码大全，想要表白的赶紧来学上几招。

一、微信翻译表白代码大全：

ohh

留在我身边。

ຂ້ອຍຮັກເຈົ້າ

我爱你。

Mám tě rád

我喜欢你。

Você é meu bebê

你是我的宝贝。

ฉันชอบคุณเท่านั้น

我只喜欢你。

ທ່ານຮູ້ຈັກຂ້າພະເຈົ້າຮັກທ່ານ

你知道我爱你。

أنت دائما في قلبي

你永远在我心里。

Te vagy az egyetlen

是你我唯一。

Miluji pouze jednu osobu, ta osoba jste vy

我只爱一个人，那个人就是你。

Feicfidh mé duit an chéad uair, is maith liomsa leat

第一眼，我就喜欢你。

මම ඔබට කියන්න අවශ්ය, මම ඔයාට ආදරෙයි

我想告诉你，我爱你。

ສະພາບອາກາດເຢັນຈະໃສ່ເຄື່ອງນຸ່ງຫຼາຍ,ທ່ານຮູ້ຈັກຂ້າພະເຈົ້າຮັກທ່ານ

寒冷的天气多穿衣服，你知道我爱你。

ไม่ว่าจะเกิดอะไรขึ้นก็ตามโปรดอย่าปล่อยมือฉันด้วย ฉันต้องการจะบอกคุณว่าฉันชอบคุณ

无论发生什么，请不要离开我。我想要告诉你，我爱你。

也有一些倒过来看就是表白的代码，赶紧去试试：

n 55iw ！倒过来是i miss you，我想你。

n paau ！倒过来看就是i need you，我需要你。

n a^o7 ！倒过来就是love，爱你。

二、微信翻译表白代码教程：

1、操作很简单，先准备好自己想要表白的短句。

2、用翻译工具翻译成不用国家的语言，比如：泰语，捷克语，葡萄牙语，老挝语。

3、然后复制翻译出来的外国文字，发送给对方。请对方用微信自带的翻译功能翻译出来，立马变成中文，你的表白就完成了。

注意：在你发送微信翻译表白代码之前，最好自己测试一下。测试成功了再发出去，不然就尴尬了。表白没成功，反而造成了不好的印象就不好了。

表白代码大全可复制免费

表白代码大全可复制免费，用代码表白是一件非常浪漫的事情，只需要短短的一行代码,就可以制作生活中的惊喜和小浪漫，但是设置代码是需要技巧的，以下分享表白代码大全可复制免费。

表白代码大全可复制免费1

1发送xoxO(会出现满屏亲亲)

2发送mi manchi(会出现满屏小星星)

3发送ohh(翻译:留在我身边)

4发送ch will mit dir S wim(翻译:我想和你在一起)

5发送Voce e meu bebe(翻译:你是我的宝贝)

6发送 RUYDUAautrinuU(翻译我只喜欢你)

7发送 love at first sight(翻译:—见钟情)

8发送We will be happy(我们会幸福)

9发送missu(会出现星星雨)

10发送u621u7231u460(翻译:爱你)

11发送u5728u4e0Ou8d7Nu5427(翻译在一起)

12发送Milji pouze jednu osobu, ta osoba jste vy我只爱一个人,那个人就是你)

13发送 yax you(翻译我跟你说)发送yyyax you翻译我喜欢你)发送 yox you!(我爱死你了)

14n 55 iw!(倒过来是i miss you我想你。)

15我想要两颗西柚("1 wanttoseeyou"我想要见你)

16962464(用九宫格输入试试)

17Mg+Znso4==MgSo4+zn(你的镁夺走了我的锌）

18Te echo de menos(微信翻译:我想你)

19双木非林田下有心(相思)

20nnggui(倒过来看就是ineedyoy我需要你)

表白代码大全可复制免费2

程序员的表白代码

第一条语言：Java代码翻译：直到死之前，每天爱你多一点代码：while(lifeend){love++;}

第二条语言：C语言代码翻译：IcannotsayHellototheWorldwithoutu代码：#incldestdiohintmain(){printf(HelloWorldn);retrn0;}//IcannotsayHellototheWorldwithoutu

第三条语言：python代码翻译：山无陵，江水为竭，冬雷震震，夏雨雪，天地合，乃敢与君绝！代码：if(mountainarris==None):if(riverwater==None):if(winterthunder==True):if(summersnow==

True):if(skyheight==groundheight):iwithyou=Falseelse:iwithyou=True

第四条语言：Erlang代码代码翻译：深圳相遇，至死不渝代码：-module(you_and_me)-export([start/1])-record(person,{name,address,status})start(Name)-one_world(Name)one_world(Name)keep_to_love_you(Person)say_goodbye(Person)-io:format(~p:seeyounextworld!~n,[Person#personname])see_you_next_world(Name)-one_world(Name)

第五条语言：Java语言代码翻译：爱你到天荒地老代码：while(!worlddestroy){Systemoutprintln(iloveyou);}

表白代码大全可复制免费3

第一条

语言：Java

代码翻译：

直到死之前，每天爱你多一点

代码：

while (life < end) {

love++;

}

// I can not say Hello to the World without u

第二条

语言：python

代码翻译：

山无陵， 江水为竭， 冬雷震震， 夏雨雪， 天地合， 乃敢与君绝！

代码：

if(mountainarris==None):

if(riverwater==None):

if(winterthunder==True):

if(summersnow==True):

if(skyheight==groundheight):

iwithyou=False

else:

iwithyou=True

one_world(Name)

第三条

语言：Java语言

代码翻译：

爱你到天荒地老

代码：

while(!worlddestroy){

Systemoutprintln("i love you");

}

第四 条

语言：C语言

代码翻译：

两隔的`世界;

无名的信件;

短暂的停留;

长久的记忆;

说这么多，只是想说：我想你了。

代码：

#include

int main()

{

double world;

unsigned letter;

short stay;

long memories;

printf("I miss you ");

return 0;

}

宏是用于扩展WPS功能，可以编写宏代码，来完成WPS中没有的功能，或者提高操作效率。开始wps文字宏功能的步骤如下。

1，打开WPS文字，进入程序主界面。

2，接着，点击上方的开始工具选项，点击打开。

3，在窗口中看到宏功能处于灰色，无法使用。

4，在电脑上打开好的“vba6”文件，点击打开按安装。

5，程序安装完成。

6，最后，回到wps文字中即可看到宏功能启用完成，问题解决。

无论是WPS2016个人免费版，还是最新WPS2019个人免费版，安装后是没有宏vba的功能的。只有专业版才有，但是专业版收费比较贵。今天我们讲解下直接安装WPS宏后可以使用VBA写代码。

1/5打开WPS宏安装包

2/5点击“next”下一步

3/5点击“Igree”下一步

4/5点击“finsh”完成安装

5/5打开WPS，随便打开一个excel表格。点击菜单栏中的开发工具点击VBE编辑器，就可以开始写代码了。

我可以为您提供有关使用 VBA 将表一的信息录入表二的指导如下：

使用 VBA 将表一的信息录入表二的基本方法如下所示：

1 打开 Excel，然后打开表一和表二。

2 在表二中创建与表一相同的列名。

3 启用 VBA 编辑器，为代码创建一个新的模块。

4 在代码模块中，使用“for”或“while”循环遍历表一所有行。

5 对于每个行，将特定数据复制到表二中创建的相应列中。

6 编写完成后，执行 VBA 代码即可将表一的信息录入表二。

这里提供一段 VBA 代码供您参考：

Sub copyDataToTable2()

Dim x As Long

Dim lastRow As Long

lastRow = Sheets("表一")Range("A" & RowsCount)End(xlUp)Row

For x = 2 To lastRow

Sheets("表二")Cells(x, 1) = Sheets("表一")Cells(x, 1)

Sheets("表二")Cells(x, 2) = Sheets("表一")Cells(x, 2)

'依次将表一中的所有数据复制到表二中创建的相应列中

Next x

End Sub

这段代码可以将表一的第一列和第二列数据复制到表二中，您可以根据需要修改。

希望以上指导可以帮到您。

vba编程基础知识有下面这些：

VBA是编辑语言，宏是用VBA代码保存下来的程序。

VBA代码都是以“Sub宏名”及一对空括号开头，以“End Sub”结尾。

模块是保存过程的地方，一个模块可以保存多个不同类型的过程。

对象，工作簿，工作表，单元格，，图表，透视表等。

每个对象都有属性，属性是对象包含的内容或特点。（对象属性）

对象的某些属性也是对象，属性和对象是相对而言的。

每个对象都有方法，方法是指在对象上执行的某个动作。（对象方法）

VBA的编辑环境——VBE(Visual Basic Editor)

进入VBE的方法:

<Alt + F11>。

右击工作表，选择View Code 3 DEVELOPER下的Visual Basic。

立即窗口（view- Immdediate Window）中直接输入命令，回车后将显示命令执行后的结果。如果立即窗口未显示，快捷键Ctrl + G

因为VBA程序一般保存在模块里，所以先添加一个模块。

参考下面这些代码：

1：打开所有隐藏工作表

2：循环宏

3：录制宏时调用“停止录制”工具栏

4：高级筛选5列不重复数据至指定表

5：双击单元执行宏(工作表代码)

6：双击指定区域单元执行宏(工作表代码)

7：进入单元执行宏(工作表代码)

8：进入指定区域单元执行宏(工作表代码)

9：在多个宏中依次循环执行一个（控件按钮代码）

10：在两个宏中依次循环执行一个并相应修改按钮名称（控件按钮代码）

11：在三个宏中依次循环执行一个并相应修改按钮名称（控件按钮代码）

12：根据A1单元文本隐藏/显示按钮（控件按钮代码） 

13：当前单元返回按钮名称（控件按钮代码） 

14：当前单元内容返回到按钮名称（控件按钮代码） 

15：奇偶页分别打印 

16：自动打印多工作表第一页 

17：查找A列文本循环插入分页符 

18：将A列最后数据行以上的所有B列大小调整为所在单元大小 

19：返回光标所在行数 20：在A1返回当前选中单元格数量 

21：返回当前工作簿中工作表数量 

22：返回光标选择区域的行数和列数 

23：工作表中包含数据的最大行数 

24：返回A列数据的最大行数 

25：将所选区域文本插入新建文本框 

26：批量插入地址批注 

27：批量插入统一批注 

28：以A1单元内容批量插入批注 

29：不连续区域插入当前文件名和表名及地址 

30：不连续区域录入当前单元地址 

31：连续区域录入当前单元地址 

32：返回当前单元地址 

33：不连续区域录入当前日期 

34：不连续区域录入当前数字日期 

35：不连续区域录入当前日期和时间 

36：不连续区域录入对勾 

37：不连续区域录入当前文件名 

38：不连续区域添加文本 

39：不连续区域插入文本 

40：从指定位置向下同时录入多单元指定内容 

41：按aa工作表A列的内容排列工作表标签顺序 

42：以A1单元文本作表名插入工作表 

43：删除所有未选定工作表 

44：工作表标签排序

45：定义指定工作表标签颜色 

46：在目录表建立本工作簿中各表链接目录 

47：建立工作表文本目录 

48：查另一文件的所有表名 

49：当前单元录入计算机名 

50：当前单元录入计算机用户名 

51：解除所有工作表保护 

52：为指定工作表加指定密码保护表 

53：在有密码的工作表执行代码 

54：执行前需要验证密码的宏(控件按钮代码) 

55：执行前需要验证密码的宏() 

56：拷贝A1公式和格式到A2 

57：复制单元数值 

58：插入数值条件格式 

59：插入透明批注 

60：添加文本 

61：光标定位到指定工作表A列最后数据行下一单元 

62：定位选定单元格式相同的所有单元格 

63：按当前单元文本定位 

64：按固定文本定位 

65：删除包含固定文本单元的行或列 

66：定位数据及区域以上的空值 

67：右侧单元自动加5(工作表代码) 

68：当前单元加2 

69：A列等于A列减B列 

70：用于光标选定多区域跳转指定单元(工作表代码) 

71：将A1单元录入的数据累加到B1单元（工作表代码） 

72：在指定颜色区域选择单元时添加/取消"√"（工作表代码） 

73：在指定区域选择单元时添加/取消"√"（工作表代码） 

74：双击指定单元，循环录入文本（工作表代码） 

75：双击指定单元，循环录入文本（工作表代码） 

76：单元区域引用（工作表代码） 

77：在指定区域选择单元时数值加1（工作表代码） 

78：混合文本的编号 

79：指定区域单元双击数据累加（工作表代码） 

80：选择单元区域触发事件（工作表代码） 

81：当修改指定单元内容时自动执行宏（工作表代码） 

82：被指定单元内容限制执行宏 

83：双击单元隐藏该行（工作表代码） 

84：高亮显示行（工作表代码） 

85：高亮显示行和列（工作表代码）

86：为指定工作表设置滚动范围（工作簿代码）

87：在指定单元记录打印和预览次数（工作簿代码）

88：自动数字金额转大写（工作表代码）

89：将所有工作表的A1单元作为单击按钮（工作簿代码）

90：闹钟——到指定时间执行宏（工作簿代码）

91：改变Excel界面标题的宏（工作簿代码）

92：在指定工作表的指定单元返回光标当前多选区地址（工作簿代码）

93：B列录入数据时在A列返回记录时间（工作表代码）

94：当指定区域修改时在其右侧的2个单元返回当前日期和时间（工作表代码）

95：指定单元显示光标位置内容（工作表代码）

96：每编辑一个单元保存文件

97：指定允许编辑区域

98：解除允许编辑区域限制

99：删除指定行

100：删除A列为指定内容的行

 

1：打开所有隐藏工作表

 

Sub 打开所有隐藏工作表()

Dim i As Integer

For i = 1 To SheetsCount

Sheets(i)Visible = True

Next i 

End Sub

  

2：循环宏

 

Sub 循环()

  

 AAA = Range("C2")

   

 Dim i As Long

  Dim times As Long

  times = AAA 

'times代表循环次数，执行前把times赋值即可(不可小于1，不可大于2147483647)

  For i = 1 To times

  Call 过滤一行

  

 If Range("完成标志") = "完成" Then

    Exit For  

'假如名为'完成标志'的命名单元的值等于'完成',则退出循环,假如一开始就等于'完成',则只执行一次循环就退出

  

'If Sheets("传送参数")Range("A" & i)Text = "完成" Then 

Exit For 

'假如某列出现"完成"内容则退出循环

Next i 

End Sub   

      

3：录制宏时调用“停止录制”工具栏   

Sub 录制宏时调用停止录制工具栏()

      ApplicationCommandBars("Stop Recording")Visible = True 

End Sub        

 

4：高级筛选5列不重复数据至指定表

Sub 高级筛选5列不重复数据至Sheet2()

      Sheets("Sheet2")Range("A1:E65536") = "" '清除Sheet2的A:D列

     Range("A1:E65536")AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Sheet2Range( _

         "A1"), Unique:=True

      Sheet2Columns("A:E")Sort Key1:=Sheet2Range("A2"), Order1:=xlAscending, Header:=xlGuess, _

OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _

         :=xlPinYin 

End Sub        

5：双击单元执行宏(工作表代码)   

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Range("$A$1") = "关闭" Then

Exit Sub      

Select Case TargetAddress

         Case "$A$4"

             Call 宏1

             Cancel = True

         Case "$B$4"

             Call 宏2

             Cancel = True

         Case "$C$4"

             Call 宏3

             Cancel = True

        Case "$E$4"

             Call 宏4 

             Cancel = True

     End Select 

End Sub

 

6：双击指定区域单元执行宏(工作表代码)

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

     If Range("$A$1") = "关闭" Then Exit Sub

     If Not ApplicationIntersect(Target, Range("A4:A9", "C4:C9")) Is Nothing Then Call 打开隐藏表

 End Sub

 

7：进入单元执行宏(工作表代码)   

Private Sub Worksheet_SelectionChange(ByVal Target As Range) '以单元格进入代替按钮对象调用宏      

If Range("$A$1") = "关闭" Then Exit Sub     

Select Case TargetAddress

          Case "$A$5" '单元地址(TargetAddress),或命名单元名字(TargetName) 

            Call 宏1

         Case "$B$5"

             Call 宏2

         Case "$C$5"

             Call 宏3

      End Select

 End Sub

 

8：进入指定区域单元执行宏(工作表代码)

 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Range("$A$1") = "关闭" Then Exit Sub

If Not ApplicationIntersect(Target, Range("A4:A9","C4:C9")) Is Nothing Then Call 打开隐藏表 

End Sub

 

9：在多个宏中依次循环执行一个（控件按钮代码）

 

Private Sub CommandButton1_Click()

Static RunMacro As Integer

Select Case RunMacro

Case 0

宏1

RunMacro = 1

Case 1

宏2

RunMacro = 2

Case 2

宏3

RunMacro = 0

End Select 

End Sub

 

10：在两个宏中依次循环执行一个并相应修改按钮名称（控件按钮代码）

Private Sub CommandButton1_Click()

With CommandButton1

If Caption = "保护工作表" Then

Call 保护工作表

 Caption = "取消工作表保护" 

Exit Sub

End If

If Caption = "取消工作表保护" Then

Call 取消工作表保护

 Caption = "保护工作表" 

Exit Sub

End If

End With 

End Sub

 

11：在三个宏中依次循环执行一个并相应修改按钮名称（控件按钮代码）   

Option Explicit  Private Sub CommandButton1_Click()

With CommandButton1

If Caption = "宏1" Then

Call 宏1

 Caption = "宏2" 

Exit Sub

End If

If Caption = "宏2" Then

Call 宏2

Caption = "宏3"

Exit Sub

End If

If Caption = "宏3" Then

Call 宏3

Caption = "宏1"

Exit Sub

End If

End With 

End Sub 

12：根据A1单元文本隐藏/显示按钮（控件按钮代码）

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 

If Range("A1") > 2 Then

  CommandButton1Visible = 1

 Else

  CommandButton1Visible = 0

 End If 

End Sub  

Private Sub CommandButton1_Click()

 重排窗口 

End Sub        

 

13：当前单元返回按钮名称（控件按钮代码）   

Private Sub CommandButton1_Click() 

ActiveCell = CommandButton1Caption 

End Sub        

 

14：当前单元内容返回到按钮名称（控件按钮代码）   

Private Sub CommandButton1_Click() 

CommandButton1Caption = ActiveCell 

End Sub        

 

15：奇偶页分别打印   

Sub 奇偶页分别打印() 

Dim i%, Ps%  

Ps = ExecuteExcel4Macro("GETDOCUMENT(50)") '总页数 

MsgBox "现在打印奇数页,按确定开始" 

For i = 1 To Ps Step 2 

ActiveSheetPrintOut from:=i, To:=i 

Next i  

MsgBox "现在打印偶数页,按确定开始" 

For i = 2 To Ps Step 2      

ActiveSheetPrintOut from:=i, To:=i 

Next i 

End Sub        

16：自动打印多工作表第一页   

Sub 自动打印多工作表第一页() 

Dim sh As Integer 

Dim x 

Dim y 

Dim sy 

Dim syz  

x = InputBox("请输入起始工作表名字:") 

sy = InputBox("请输入结束工作表名字:") 

y = Sheets(x)Index 

syz = Sheets(sy)Index 

For sh = y To syz 

Sheets(sh)Select  

Sheets(sh)PrintOut from:=1, To:=1 

Next sh 

End Sub        

 

17：查找A列文本循环插入分页符   

Sub 循环插入分页符()  

' Selection = Workbooks("临时表")Sheets("表2")Range("A1") 调用指定地址内容   

Dim i As Long 

Dim times As Long  

times = ApplicationWorksheetFunctionCountIf(Sheet1Range("a:a"), "分页")      'times代表循环次数，执行前把times赋值即可(不可小于1，不可大于2147483647) 

For i = 1 To times 

Call 插入分页符 

Next i 

End Sub

Sub 插入分页符()     

CellsFind(What:="分页", After:=ActiveCell, LookIn:=xlValues, LookAt:= _ 

xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _         

Activate      

ActiveWindowSelectedSheetsHPageBreaksAdd Before:=ActiveCell 

End Sub

Sub 取消原分页()     

CellsSelect      

ActiveSheetResetAllPageBreaks 

End Sub

 

18：将A列最后数据行以上的所有B列大小调整为所在单元大小   

Sub 将A列最后数据行以上的所有B列大小调整为所在单元大小()     

Dim Pic As Picture, i&      

i = [A65536]End(xlUp)Row     

For Each Pic In Sheet1Pictures          

If Not ApplicationIntersect(PicTopLeftCell, Range("B1:B" & i)) Is Nothing Then

             PicTop = PicTopLeftCellTop

             PicLeft = PicTopLeftCellLeft

              PicHeight = PicTopLeftCellHeight

             PicWidth = PicTopLeftCellWidth

         End If

     Next 

End Sub

 

19：返回光标所在行数   

Sub 返回光标所在行数()     

x = ActiveCellRow     

Range("A1") = x 

End Sub        

 

20：在A1返回当前选中单元格数量   

Sub 在A1返回当前选中单元格数量()     

[A1] = SelectionCount 

End Sub

 

21：返回当前工作簿中工作表数量

Sub 返回当前工作簿中工作表数量()     

t = ApplicationSheetsCount     

MsgBox t 

End Sub        

 

  

     

93：B列录入数据时在A列返回记录时间（工作表代码）

Public Sub Worksheet_Change(ByVal Target As Range) 

If TargetColumn = 2 Then 

TargetOffset(, -1) = Now 

End If 

End Sub        

 

94：当指定区域修改时在其右侧的2个单元返回当前日期和时间（工作表代码）   

Public Sub Worksheet_Change(ByVal Target As Range)  

If Not ApplicationIntersect(Target, [A1:A1000]) Is Nothing Then 

If TargetColumn = 1 Then 

TargetOffset(, 1) = Date 

TargetOffset(, 2) = Time 

End If 

End If 

End Sub   

 

Public Sub Worksheet_Change(ByVal Target As Range)  

If Not ApplicationIntersect(Target, [A1:A1000]) Is Nothing Then 

If TargetColumn = 1 Then  

TargetOffset(, 1) = Format(Now(), "yyyy-mm-dd") 

TargetOffset(, 2) = Format(Now(), "h:mm:ss") 

End If 

End If 

End Sub        

 

95：指定单元显示光标位置内容（工作表代码）   

Private Sub Worksheet_SelectionChange(ByVal T As Range) 

Sheets(1)Range("A1") = Selection 

End Sub        

 

96：每编辑一个单元保存文件   

Private Sub Worksheet_Change(ByVal Target As Range) 

ThisWorkbookSave 

End Sub        

 

97：指定允许编辑区域

Sub 指定允许编辑区域()  

ActiveSheetScrollArea = "B8:G15" 

End Sub        

 

98：解除允许编辑区域限制   

Sub 解除允许编辑区域限制() 

ActiveSheetScrollArea = "" 

End Sub        

 

99：删除指定行   

Sub 删除指定行()  

Workbooks("临时表")Sheets("表2")Range("5:5")Delete 

End Sub        

 

100：删除A列为指定内容的行   

Sub 删除A列为指定内容的行() 

Dim a, b As Integer  

a = Sheet1[a65536]End(xlUp)Row    

For b = a To 2 Step -1        

If Cells(b, 1)Value = "删除" Then          

Rows(b)Delete       

End If    

Next 

End Sub