求多行多列里每个数值一共出现了多少次。

a10feixiang

1求多行多列里每个数值一共出现了多少次。（这四列总共）
2求出现最多次数的值是多少。
3.求最后一行里的最大值是多少。（第二十五行）

4.，求最后一行里的最大值是多少，并且大于（2出现最多次数的值）。大于多少求差值。

qwer401245

a10feixiang

4是指第25行里最大值是13 。从a1到d1 次数最多的值是30.
13和30做比较。求差值是多少、13-30=-17；

无聊的黑猫

a10feixiang

无聊的黑猫 发表于 2023-3-29 10:48

没有显示 请老师在改改

a10feixiang

无聊的黑猫 发表于 2023-3-29 10:48

没有显示 请老师在改改软件  是Excel

quqiyuan

a10feixiang

老师能否将公式直接批量添加到（新建文件2excel文件夹）的excel文件里。























老师能否把公式批量添加到这个“新建文件夹2”里的单个excel文件里边。

quqiyuan

a10feixiang 发表于 2023-3-29 14:08
老师能否将公式直接批量添加到（新建文件2excel文件夹）的excel文件里。

你把我文件里的公式复制过来不就行了？

a10feixiang

quqiyuan 发表于 2023-3-29 14:49
你把我文件里的公式复制过来不就行了？

老师你好，如果文件夹里有一万个excel文件，同时执行和提取这个条件（最后一行最大-最多），并且显示文件名。
1.从一个新的excel文件里显示（每个exel文件名称和最后一行最大-最多）。
2.用vBa怎么编程。请有时间编写，谢谢。
我不会编写。找了点资料（VBA 搜索文件夹下所有xlsx文件，并运行宏

    Dim MyFile As String
    Dim Arr(100) As String
    Dim count As Integer
    MyFile = Dir("C:\Users\60930\Desktop\孔隙体积压缩系数-已完成67\孔隙体积数据2020.12.20-51块\" & "*.xlsx")
    count = count + 1
    Arr(count) = MyFile
      
    Do While MyFile <> ""
        MyFile = Dir
        If MyFile = "" Then
            Exit Do
        End If
        count = count + 1
        Arr(count) = MyFile         '将文件的名字存在数组中
    Loop
      
    For i = 1 To count
        Workbooks.Open Filename:="C:\Users\60930\Desktop\孔隙体积压缩系数-已完成67\孔隙体积数据2020.12.20-51块\" & Arr(i)  '循环打开Excel文件
            Call 原始记录修改                         ·需要运行的宏
                        
            'Cells(1, 1) = "alex_bn_lee"             '修改打开文件的内容
        ActiveWorkbook.Close savechanges = True     '关闭打开的文件
    Next
End Sub







222222222222222222VBA 遍历指定目录下所有Excel文件并读取文件名
SheetName()
    Dim Path As String
    Dim File As String
    Dim WB As Workbook
    Dim sht As Worksheet
     
        Application.ScreenUpdating = False
        Path = ThisWorkbook.Path & "/"
        File = Dir(Path & "*.xlsx")
        Do While File <> ""
            Set WB = Workbooks.Open(Path & File)
            For Each sht In WB.Sheets
                MsgBox sht.Name
            Next

            File = Dir
        Loop
        Application.ScreenUpdating = True
End Sub



　　请老师帮忙