170、提示确定或取消执行宏

Sub 提示确定或取消执行宏()

If vbOK = MsgBox(\确定要复制吗?\Range(\Msgbox \复制结束\End If End Sub

171、提示开始和结束

Sub 提示结束() Msgbox \运行开始\过程??

Msgbox \运行结束\End Sub

172、拷贝指定表不相邻多列数据到新位置

Sub 拷贝指定表不相邻多列数据到新位置()

Sheets(\End Sub

173、选择2至4行

Sub 选择2至4行() Dim a As Integer Dim b As Integer a = 2 b = 4

Rows(a & \End Sub

174、在当前选区有条件替换数值为文本

Sub 在当前选区有条件替换数值为文本() For Each r In Selection

If r.Value > 18 And r.Value < 29.5 Then r.Value = \Next End Sub

175、自动筛选全部显示指定列

Sub 自动筛选全部显示指定列() Selection.AutoFilter Field:=1 Selection.AutoFilter Field:=2 Selection.AutoFilter Field:=3 Selection.AutoFilter Field:=4 Selection.AutoFilter Field:=5 Selection.AutoFilter Field:=6 End Sub

176、自动筛选第2列值为A的行

Sub 自动筛选第2列值为A的行() [a1].AutoFilter 2, \End Sub

177、取消自动筛选()

Sub 取消自动筛选()

ActiveSheet.AutoFilterMode = False End Sub

178、全部显示指定表的自动筛选

Sub 全部显示指定表的自动筛选() If Sheet1.FilterMode = True Then Sheet1.ShowAllData End If End Sub

179、强行合并单元

Sub 强行合并单元()

Application.DisplayAlerts = False '不出现对话框，按对话框默认选择 Range(\

Application.ScreenUpdating = True End Sub

180、设置单元区域格式