Excel 根据vba行中另一列的条件传输数据
如何根据第3列的颜色（3种可用颜色）将表中第1列和第2列中的数据复制到表2中基于3种不同颜色的3个单独表中？Sam，我想使用该属性收集您的范围。然后，您可以浏览工作表，创建一个集合或数组，然后从那里开始。而且，因为你几乎没有任何关于你的要求的细节，我只是尝试给你一个滚动的开始Excel 根据vba行中另一列的条件传输数据,excel,vba,Excel,Vba,如何根据第3列的颜色（3种可用颜色）将表中第1列和第2列中的数据复制到表2中基于3种不同颜色的3个单独表中？Sam，我想使用该属性收集您的范围。然后，您可以浏览工作表，创建一个集合或数组，然后从那里开始。而且，因为你几乎没有任何关于你的要求的细节，我只是尝试给你一个滚动的开始 Option Explicit Sub CollectColors() Dim cell As Range Dim ws As Worksheet Dim NoColor As Variant Dim rngColor
Option Explicit
Sub CollectColors()
Dim cell As Range
Dim ws As Worksheet
Dim NoColor As Variant
Dim rngColors As Range
Dim arr_addresses() As String
Dim x As Integer
'set variables
Set ws = ThisWorkbook.Worksheets("Sheet1")
NoColor = -4142
x = 1
'acquire array of cell addresses with some color
For Each cell In ws.UsedRange
If cell.Interior.ColorIndex <> NoColor Then
ReDim Preserve arr_addresses(1 To x)
arr_addresses(x) = cell.Address
x = x + 1
End If
Next cell
End Sub
选项显式
子集合颜色（）
暗淡单元格作为范围
将ws设置为工作表
作为变体的暗淡无色光
暗淡的RNG颜色作为范围
Dim arr_addresses（）作为字符串
作为整数的Dim x
'设置变量
设置ws=ThisWorkbook.Worksheets（“Sheet1”）
NoColor=-4142
x=1
'获取具有某种颜色的单元格地址数组
对于ws.UsedRange中的每个单元格
如果cell.Interior.ColorIndex无颜色，则
ReDim保留arr_地址（1到x）
arr_地址（x）=单元地址
x=x+1
如果结束
下一个细胞
端接头