如何在Excel文件中的所有工作表上运行相同的代码 [英] How to run the same code on all the worksheets in an Excel file
本文介绍了如何在Excel文件中的所有工作表上运行相同的代码的处理方法,对大家解决问题具有一定的参考价值,需要的朋友们下面随着小编来一起学习吧!
问题描述
我想为Excel文件中的每个工作表同时执行以下VBA代码:
Sub sample_code()
Columns("B:B").Select
Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("A:A,D:J").Select
Range("D1").Activate
Selection.Delete Shift:=xlToLeft
Columns("F:P").Select
Selection.Delete Shift:=xlToLeft
Columns("A:E").EntireColumn.AutoFit
Columns("B:B").ColumnWidth = 30.86
Range("A1:E1").Select
Selection.Font.Bold = True
End Sub
我如何才能做到这一点?
推荐答案
如下:
Sub sample_code()
Dim ws As Worksheet
For Each ws In Worksheets
With ws
.Columns("B:B").Replace What:=" ", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
.Range("A:A,D:J").Delete Shift:=xlToLeft
.Columns("F:P").Delete Shift:=xlToLeft
.Columns("A:E").EntireColumn.AutoFit
.Columns("B:B").ColumnWidth = 30.86
.Range("A1:E1").Font.Bold = True
End With
Next ws
End Sub
这篇关于如何在Excel文件中的所有工作表上运行相同的代码的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!
查看全文