帮忙写个VBA，根据标题名“出厂编号”，找到列，并修改列格式

接！
qq244202637
msn:dhumurderor@hotmail.com

代码如下，供大大分享

Dim Cs As Integer '每个sheet存在的最大列数
Dim f As Workbook

Dim i As Integer
Dim j As Integer 'sheet页的标示
On Error GoTo 2000

Application.Visible = False
Application.DisplayAlerts = False
Set f = Workbooks.Open(ThisWorkbook.Path & "\处理表.xls") '打开文件为当前目录加文件名称

Debug.Print "页数 " & f.Sheets.Count

For j = 1 To f.Sheets.Count
If f.Sheets(j).Visible = True Then
Debug.Print "第" & j & "页; "; f.Sheets(j).Name
f.Sheets(j).Select
Cs = Range("IV1").End(xlToLeft).Column '数据的最大列数

'对该页做单元格循环处理，如果找到出厂编号，则选中该单元格，并将其格式化
For i = 1 To Cs
Debug.Print i & Range("A1").Cells(1, i).Value & ": " & Range("A2").Cells(1, i).Value
If Range("A1&qu