使用VBA进行最大最小值标准化

最新推荐文章于 2023-06-15 14:59:37 发布

serenahxr

最新推荐文章于 2023-06-15 14:59:37 发布

阅读量1.3k

点赞数

分类专栏：工具文章标签： excel

本文链接：https://blog.csdn.net/tjhxrrr/article/details/104373455

版权

工具专栏收录该内容

6 篇文章 0 订阅

订阅专栏

Sub dataProcess()
On Error Resume Next
For j = 3 To 20
    Max = WorksheetFunction.Max(Range(Cells(2, j), Cells(4072, j)))
    Min = WorksheetFunction.Min(Range(Cells(2, j), Cells(4072, j)))
    For i = 2 To 4072
        Cells(i, j) = (Cells(i, j) - Min) / (Max - Min)
        Next
    Next
End Sub

j是列数，i是行数

总行/列数也可以使用代码自动读取（num = ActiveSheet.UsedRange.Rows.Count）

ps. 用python还得换软件，VBA用熟了真的挺香。