历遍工作表转化数据的问题

杨小妹 · 发表于 2023-5-30 20:47

本帖最后由杨小妹于 2023-5-30 21:20 编辑

附件

历遍工作表转化数据.rar (116.97 KB, 下载次数: 7)

谢谢老师！

gwjkkkkk · 发表于 2023-5-30 21:06

请参考。。。

shiruiqiang · 发表于 2023-5-30 21:07

本帖最后由 shiruiqiang 于 2023-5-30 21:11 编辑

Sub test()
For x = 1 To 2
h = Sheets(x).Range("a1000000").End(xlUp).Row
arr = Sheets(x).Range("a1:f" & h)
For i = 1 To UBound(arr)
If arr(i, 3) Mod 36 = 0 Then
Sheets(x).Cells(i, 5) = 36
Else
Sheets(x).Cells(i, 5) = arr(i, 3) Mod 36
End If

If arr(i, 3) Mod 49 = 0 Then
Sheets(x).Cells(i, 6) = 49
Else
Sheets(x).Cells(i, 6) = arr(i, 3) Mod 49
End If
Next
Next
End Sub

slonby · 发表于 2023-5-30 21:15

=IF(MOD(C1,36)=0,36,MOD(C1,36))
=IF(MOD(C1,49)=0,49,MOD(C1,49))
两个函数搞定，几万行也不卡

杨小妹 · 发表于 2023-5-30 21:19

shiruiqiang 发表于 2023-5-30 21:07
Sub test()
For x = 1 To 2
h = Sheets(x).Range("a1000000").End(xlUp).Row

谢谢老师。程序运行正常。就是有点慢。

shiruiqiang · 发表于 2023-5-31 07:05

杨小妹发表于 2023-5-30 21:19
谢谢老师。程序运行正常。就是有点慢。

改成数组吧

Sub test()

For x = 1 To 2
h = Sheets(x).Range("a1000000").End(xlUp).Row
arr = Sheets(x).Range("a1:f" & h)
For i = 1 To UBound(arr)
If arr(i, 3) Mod 36 = 0 Then
arr(i, 5) = 36
Else
arr(i, 5) = arr(i, 3) Mod 36
End If

If arr(i, 3) Mod 49 = 0 Then
arr(i, 6) = 49
Else
arr(i, 6) = arr(i, 3) Mod 49
End If
Next
Sheets(x).Range("a1:f" & h) = arr
Next

End Sub

		自动登录	找回密码
密码			免费注册

[已解决] 历遍工作表转化数据的问题

评分

评分