|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
Option Explicit
Sub test()
Dim ar, i&, j&, wks As Worksheet
Application.ScreenUpdating = False
For Each wks In Sheets
If wks.Name <> "Sheet0" Then
With wks
ar = Range(.[H1], .Cells(Rows.Count, "H").End(xlUp))
ReDim Preserve ar(1 To UBound(ar), 1 To 3)
For i = 1 To UBound(ar)
ar(i, 2) = IIf(ar(i, 1) Mod 36 = 0, 36, ar(i, 1) Mod 36)
ar(i, 3) = IIf(ar(i, 1) Mod 49 = 0, 49, ar(i, 1) Mod 49)
Next i
.[H1].Resize(UBound(ar), 3) = ar
End With
End If
Next
Application.ScreenUpdating = True
Beep
End Sub
|
|