|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
Option Explicit
Sub TEST2()
Dim ar, br, i&, j&, n&, wks As Worksheet
Application.ScreenUpdating = False
For Each wks In Worksheets
With wks
With Range(.[C2], .Cells(Rows.Count, "V").End(xlUp))
ar = .Value
ReDim br(1 To UBound(ar), 1 To UBound(ar, 2))
br(1, 1) = "座位号编号"
For i = 2 To UBound(ar)
n = 0
For j = 1 To UBound(ar, 2)
If .Cells(i, j).Interior.Color = 5066944 Then
n = n + 1
br(i, n) = j
End If
Next j
Next i
End With
.[X2].Resize(UBound(br), UBound(br, 2)) = br
End With
Next wks
Application.ScreenUpdating = True
Beep
End Sub
|
评分
-
1
查看全部评分
-
|