[已解决]工作中的实际问题 批量计算的代码

beachum

wanao2008 发表于 2021-6-29 21:30
试试看行不行？
Sub wanao()
    Dim x As Integer, maxNum As Integer, minNum As Integer

还是非常感谢您的热心解答！


Cells(x, 7) = Round((maxNum - minNum) / minNum, 2)
这行好像卡住了

beachum

cutecpu 发表于 2021-6-28 16:20
Sub demo()
   Application.ScreenUpdating = False
   Path = ThisWorkbook.Path & "\"

遇到一个问题，数据来源里有些行出现了空格，怎么忽略空格后继续计算呢？

cutecpu

beachum 发表于 2021-6-30 16:10
遇到一个问题，数据来源里有些行出现了空格，怎么忽略空格后继续计算呢？

您先执行看看原来的代码
遇到空白应该不影响答案

beachum

cutecpu 发表于 2021-6-30 16:22
您先执行看看原来的代码
遇到空白应该不影响答案

您好！
非常抱歉，是我弄错了附件！
遇到的情况是……可能其他原因，
有的文件第一行（整行）是空白，所以代码跑不动，我想过改c1,
但就改动工序原始情况。

请大神帮忙看看！
非常感谢！

cutecpu

beachum 发表于 2021-7-1 16:30
您好！
非常抱歉，是我弄错了附件！
遇到的情况是……可能其他原因，

只新增藍色部份

Sub demo()
   Application.ScreenUpdating = False
   Path = ThisWorkbook.Path & "\"
   file = Dir(Path & "*.xlsx")
   While file <> ""
      Set wb = Workbooks.Open(Path & file)
      [g:g] = ""
      c = Range("c1:g" & [a1].End(4).Row)
      For i = 1 To UBound(c)
         Max = Application.Max(Application.Index(c, i, 0))
         Min = Application.Min(Application.Index(c, i, 0))
         If Min <> 0 Then c(i, 5) = (Max - Min) / Min
      Next
      [c1].Resize(i - 1, 5) = c
      wb.Close 1
      file = Dir()
   Wend
   Application.ScreenUpdating = True
   MsgBox "ok"
End Sub


祝順心，南無阿彌陀佛！

beachum

cutecpu 发表于 2021-7-1 17:38
只新增藍色部份

Sub demo()

这个改动十分完美！
谢谢您的帮助！