在excel VBA编程中如何才能批量获取选择区域单元格的颜色 当前选择区域不只有几个单元格，而

读颜色貌似只能用循环。

试试在程序中关闭屏幕更新能否改善

ApplicationScreenUpdating = False

程序结束前再复原：ApplicationScreenUpdating = True

Sub s()

    Dim rg As Range

    n = Cells(RowsCount, 4)End(3)Row

    For i = 1 To n

    If InStr(Cells(i, 4), "a") > 0 Then

    Set rg = Union(rg, Cells(i, 1)Resize(1, 4))

    Next

End Sub

实现的方法和详细的 *** 作步骤如下：

1、第一步，显示该单元格中所选单元格的行号和列号，并使用VBA在以下两个单元格中进行显示，见下图，转到下面的步骤。

2、第二步，完成上述步骤后，按“Alt +  F11”打开VBA编辑界面，选择当前工作表以编写代码，见下图，转到下面的步骤。

3、第三步，完成上述步骤后，以下代码是当前单元格的行号，并将其放在当前单元格的下一个单元格中，见下图，转到下面的步骤。

4、第四步，完成上述步骤后，以下代码用于获取当前单元格的列号，并将其放在当前单元格下面的第二个单元格中，见下图，转到下面的步骤。

5、第五步，完成上述步骤后，编写代码完成，单击“运行”按钮（或按F5键），见下图，转到下面的步骤。

6、第六步，完成上述步骤后，当返回Excel时，可以看到当前单元格的行号和列号，见下图。这样，就解决了这个问题了。

可以使用命名单元格区域，然后可以像数组一样使用了 例如：区域名为“dsds”，调用方法： range("dsds")(1,1)　表示第一行，第一列　如果只用一列： range("dsds")(1）

如何选择当前工作表中的单元格？例如，可以使用下面的代码选择当前工作表中的单元格D5：ActiveSheetCells(5, 4)Select或：ActiveSheetRange("D5")Select如何选择同一工作簿中其它工作表上的单元格？例如，要选择同一工作簿中另一工作表上的单元格E6，可以使用下面的代码：ApplicationGoto ActiveWorkbookSheets("Sheet2")Cells(6, 5)或：ApplicationGoto (ActiveWorkbookSheets("Sheet2")Range("E6"))也可以先激活该工作表，然后再选择：Sheets("Sheet2")ActivateActiveSheetCells(6, 5)Select如何选择不同工作簿中的单元格？例如，要选择另一工作簿中的一个工作表上的单元格F7，可以使用下面的代码：ApplicationGoto Workbooks("BOOK2XLS")Sheets("Sheet1")Cells(7, 6)或：ApplicationGoto Workbooks("BOOK2XLS")Sheets("Sheet1")Range("F7")也可以先激活该工作簿中的工作表，然后再选择：Workbooks("BOOK2XLS")Sheets("Sheet1")ActivateActiveSheetCells(7, 6)Select如何选择当前工作表中的单元格区域？例如，要选择当前工作表中的单元格区域C2:D10，可以使用下面的代码：ActiveSheetRange(Cells(2, 3), Cells(10, 4))Select或：ActiveSheetRange("C2:D10")Select或：ActiveSheetRange("C2", "D10")Select如何选择同一工作簿中另一工作表上的单元格区域？例如，要选择同一工作簿中另一工作表上的单元格区域D3：E11，可以使用下面的代码：ApplicationGoto ActiveWorkbookSheets("Sheet3")Range("D3:E11")或：ApplicationGoto ActiveWorkbookSheets("Sheet3")Range("D3", "E11")也可以先激活该工作表，然后再选择：Sheets("Sheet3")ActivateActiveSheetRange(Cells(3, 4), Cells(11, 5))Select如何选择不同工作簿中工作表上的单元格区域？例如，要选择另一工作簿中某工作表上的单元格区域E4:F12，可以使用下面的代码：ApplicationGoto Workbooks("BOOK2XLS")Sheets("Sheet1")Range("E4:F12")或：ApplicationGoto Workbooks("BOOK2XLS")Sheets("Sheet1")Range("E4", "F12")也可以先激活该工作表，然后再选择：Workbooks("BOOK2XLS")Sheets("Sheet1")ActivateActiveSheetRange(Cells(4, 5), Cells(12, 6))Select如何在当前工作表中选择命名区域？例如，要选择当前工作表中名为“Test”的区域，可以使用下面的代码：Range("Test")Select或：ApplicationGoto "Test"如何选择同一工作簿中另一工作表上的命名区域？例如，选择同一工作簿中另一工作表上名为“Test”的区域，可使用下面的代码：ApplicationGoto Sheets("Sheet1")Range("Test")也可以先激活工作表，再选择：Sheets("Sheet1")ActivateRange("Test")Select如何选择不同工作簿中工作表上的命名区域？例如，要选择不同工作簿中工作表上名为“Test”的区域，可使用下面的代码：ApplicationGoto Workbooks("BOOK2XLS")Sheets("Sheet2")Range("Test")也可以先激活工作表，再选择：Workbooks("BOOK2XLS")Sheets("Sheet2")ActivateRange("Test")Select

以上就是关于在excel VBA编程中如何才能批量获取选择区域单元格的颜色 当前选择区域不只有几个单元格，而全部的内容，包括:在excel VBA编程中如何才能批量获取选择区域单元格的颜色 当前选择区域不只有几个单元格，而、用vba选取符合条件的区域、怎样用vba显示选择区域的第一个单元格的行的数值，列的数值等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！