主页 / computer / 问题 / 1629416
Accepted
Seeky
Asked: 2021-02-27 17:00:02 +0800 CST

如何在 Excel 中停止无限单元格颜色

  • 772

我打开一个空的 Excel 工作表，选择整行“10”，然后单击填充颜色“黄色”。现在整行 '10' 是黄色的。
然后我注意到我实际上只需要直到“X”列的黄色单元格。为了解决这个“问题”，我选择了整行'10'，点击填充颜色'No Fill'，选择单元格'A10'到'X10'，然后点击填充颜色'yellow'。现在只有单元格 'A10' 到 'X10' 是黄色的，所有其他单元格的填充颜色是 'No Fill'。
但是，如果您有数百行以不同的颜色着色，突然之间就不再那么容易了，因为您必须分别为每一行执行此操作。

在旧版本的 Excel 中，或者如果将 Excel 文件另存为 .xls，则可以选择从列“Y”到“IV”（旧版本 Excel 中的最后一列）的所有列，然后将填充颜色设置为“无填充” .
但是在今天的 Excel 版本中，您或多或少拥有无限的列，因此这种方法不再适用。
注意：如果您使用新版本的 Excel 打开已完成此方法的文件，您会突然再次看到“IV”列右侧的原始颜色。

所以我的问题；是否有可能告诉 Excel 列“X”之后的所有单元格必须使用填充颜色“无填充”？

microsoft-excel

3 个回答

  1. 在旧版本的 Excel 中，或者如果将 Excel 文件另存为 .xls，则可以选择从列“Y”到“IV”（旧版本 Excel 中的最后一列）的所有 >列，然后将 >填充颜色设置为“否”充满'。但是在今天的 Excel 版本中，您或多或少拥有无限的列，因此这种 > 方法不再适用。

    您可以选择要不填充的第一列，使用 cntrl+shift+右箭头将选择范围扩展到右侧的所有列，然后选择不填充，就像在旧版本的 excel 中一样。

    • 1

  2. 使用相对引用创建命名范围。

    例如，您希望单元格Axxx:Xxxx（其中“xxx”是行号）获得颜色，但不附加行中的任何其他单元格（列 X 之后的列）。

    因此，为这部分工作选择一行。也许您选择第 13 行。选择 ("highlight") cell A13。创建一个命名范围（无论您喜欢什么）并命名它，以便您记住它的名称。实际上，在任何按字母顺序排列的列表的开头附近按字母顺序排列的东西是最好的：可能以“_”或“AA”开头的东西。

    对于该Refers to框，输入以下内容：

    =$B13:$X13,$A13

    只需复制并粘贴即可。当您保存它时，Excel 会添加工作表名称，但不用担心，为什么要努力，也许自己弄错了？让 Excel 来做吧。

    就像上面的例子一样做：

    1. 在地址中不要添加额外的“$”。ROW 将Relative在其作用更改以匹配您所在的行的位置，但始终选择相同的列，而不是始终只影响一组精确的单元格。也不要拿$出来！
    2. 不要不考虑“简化”并使范围为“A13：X13”。任何最后列出的单元格都将是您选择命名范围时选择的单元格，我确定您不希望它成为列 X 单元格！（这是“使用复杂的 Windows 功能的 Excel”，并不是 Excel 独有的。）

    现在，这对你有什么帮助？

    编辑栏的左侧（按 编辑公式的位置F2）是一个框，您通常可以在其中看到当前选择的单元格的地址。这实际上是一个下拉框，为您提供可用命名范围的列表。如果您单击框右侧的下拉小“向下”三角形，您会看到该列表，现在您会明白为什么我建议选择一个出现在顶部或顶部附近的名称。

    如果您选择该名称，Excel 将为您当前选择的单元格所在的行选择您关心的列范围。因此，如果在第 2398 行，它将选择 A2398:X2398。如果您使用上述范围，则单元格 A2398 将是当前选定的单元格。从不同的行开始，它将是选择这些列的单元格的不同行。

    您使用框中$单元格的字母部分的原因Refers to是，无论您在单击名称时选择了哪个单元格，都将使用相同的列。因此，如果在 FFG 列中单击它时，您仍然会选择 A:X，而不是 FFG:...某事。

    现在让你的颜色改变。然后做你的工作。

    还有一件更有用的事情：如果你想改变颜色，然后移动到其他行并进行另一种颜色改变（换句话说，中间没有其他工作，你只想给第 3、54、85 行着色， 88、202 和 342，您将选择范围、颜色，移动到您认为需要完成的下一行，选择范围、颜色等），您可以选择第一行的单元格并进行着色，然后移动到您看到的下一行需要完成或在您的列表中。再次选择范围，但这次通过按Ctrl-Y或节省大量击键，F4并且将重复您的最后一个操作（着色）。这通常不适用于数据输入，但它适用于格式化等操作。因此，单击一次，按一下，该行就完成了，您将进入下一个。

    • 0
  3. Best Answer

    我现在用以下 VBA 宏解决了我的“问题”：

    Public Sub Remove_Infinite_Cell_Colors()
  Dim Row As Long
  Dim Column As Long
  Dim LastRow As Long
  Dim LastColumn As Long
  Dim BackgroundColor() As Long
  Dim BackgroundPattern() As Long

  LastRow = ActiveSheet.UsedRange.Rows.Count
  LastColumn = ActiveSheet.UsedRange.Columns.Count

  ReDim BackgroundColor(LastColumn) As Long
  ReDim BackgroundPattern(LastColumn) As Long

  For Row = 1 To LastRow
    For Column = 1 To LastColumn
      BackgroundColor(Column) = Cells(Row, Column).Interior.Color
      BackgroundPattern(Column) = Cells(Row, Column).Interior.Pattern
    Next

    Rows(Row).Interior.Pattern = xlNone

    For Column = 1 To LastColumn
      Cells(Row, Column).Interior.Color = BackgroundColor(Column)
      Cells(Row, Column).Interior.Pattern = BackgroundPattern(Column)
    Next
  Next
End Sub

    此宏将所有行的颜色设置为“无填充”，然后使用之前的颜色为每个单元格着色。

    • 0

相关问题