[求助] 颜色部分数字组合运用

liulang0808

Sub 按钮1_Click()
    For j = 2 To ActiveSheet.UsedRange.Columns.Count
        num = ""
        For i = 2 To Cells(Rows.Count, j).End(3).Row
            If Cells(i, j).Interior.ColorIndex = 1 Then
                num = num & Cells(i, j)
            End If
        Next i
        If Len(num) >= 0 Then
            Cells(1, j) = num
        End If
    Next j
End Sub

liulang0808

代码在审核，见截图部分吧

wangnandu

选定你的数据区域（B1:F31），运行以下代码
Sub bb()
arr = Selection
For i1 = 1 To UBound(arr, 2)
  For i2 = 2 To UBound(arr)
    If Selection.Cells(i2, i1).Interior.Color = 0 Then aa = aa & arr(i2, i1)
  Next
  arr(1, i1) = aa
  aa = ""
Next
Selection = arr
End Sub

风起_001

谢谢版主，谢谢大家！

风起_001

谢谢，大家！