|
练习练习
- Sub ykcbf() '//2025.1.13
- ReDim brr(1 To 1000, 1 To 2)
- With Sheets("Sheet1")
- c = .UsedRange.Columns.Count
- r = .UsedRange.Rows.Count
- For j = 1 To c
- If .Cells(1, j) <> Empty Then
- n = .Cells(1, j).MergeArea.Columns.Count
- Set Rng = .Cells(1, j).Resize(r, n)
- m = m + 1
- brr(m, 1) = .Cells(1, j).Value
- Sum = 0
- For Each k In Rng
- If k.Value <> Empty Then
- If k.Interior.ColorIndex = xlNone Then Sum = Sum + 1
- End If
- Next
- brr(m, 2) = Sum
- End If
- Next
- .[k:l].ClearContents
- .[k1].Resize(m, 2) = brr
- End With
- End Sub
复制代码
|
|