excel - 查找/替换仅限于一列但许多工作表

Question

我将首先说我所知道的唯一 VBA 是操作录制的宏的反复试验。我是一名注册会计师，试图以艰难的方式学习 VBA(并希望我去学校学习计算机编程!)。

我有带有多个工作表的大型工作簿。 G 列中以黄色突出显示的单元格需要以特定方式格式化，以便文件正确导入基于 Web 的程序。它们需要保持黄色突出显示，右/下对齐，以及 mm/dd/yyyy 的自定义格式。我录制了一个宏来执行查找/替换，以尝试用突出显示的黄色、底部/右对齐、自定义格式 mm/dd/yyyy 替换 G 列中所有黄色突出显示的单元格，但它并不将替换限制为仅 G 列。我也有不知道如何让宏在完成之前循环遍历所有工作表。帮助？!

这是我从基本宏录制中得到的:

Sub Macro2()
'
' Macro2 Macro
'

'
    Columns("G:G").Select
    Range("G:G").Activate
    With Application.FindFormat.Interior
        .PatternColorIndex = xlAutomatic
        .Color = 65535
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Application.ReplaceFormat.Clear
    Application.ReplaceFormat.NumberFormat = "mm/dd/yyyy"
    With Application.ReplaceFormat
        .HorizontalAlignment = xlRight
        .VerticalAlignment = xlBottom
    End With
    With Application.ReplaceFormat.Font
        .Subscript = False
        .TintAndShade = 0
    End With
    With Application.ReplaceFormat.Interior
        .PatternColorIndex = xlAutomatic
        .Color = 65535
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Cells.Replace What:="", Replacement:="", LookAt:=xlPart, SearchOrder:= _
        xlByRows, MatchCase:=False, SearchFormat:=True, ReplaceFormat:=True
End Sub

编辑后添加:请查看我正在尝试重新格式化的典型工作表的屏幕截图。同样，我只需要担心更改以黄色突出显示的单元格的格式，但我仍然无法将查找/替换限制为仅 G 列... [1]:[ /image/wRu30.jpg]

Answer 1

这是一些似乎可以执行您描述的代码。我放了很多.select代码中的语句，以便您可以通过逐步了解它的工作原理，但是一旦理解，您应该删除所有这些。另外，我在底部有一些注释掉的代码，您可以使用它们来循环多个工作表。动画 gif 显示了在我编写的示例上运行的代码。如果您有任何问题，请告诉我。

Sub reformat()
Dim sh As Worksheet, r As Range, cell As Range
  Set sh = ActiveSheet
  Set r = sh.Range("G1")
  r.Select
  If r.Offset(1, 0) <> "" Then Set r = sh.Range(r, r.End(xlDown))
  r.Select
  For Each cell In r
    With cell
      .Select
      If .Interior.Color = 65535 Then
        .HorizontalAlignment = xlRight
        .VerticalAlignment = xlBottom
        .NumberFormat = "mm/dd/yyyy"
      End If
    End With
  Next
For Each sh In ThisWorkbook.Worksheets
'place the above code in this loop if you want
'to apply the above to all worksheets in the workbook
'also remove the set sh=ActiveSheet line
Next sh
End Sub