在Excel里编VBA时，如何调用其他加载宏里的函数计算？-excel宏读取数据,excel用宏导入数据

Option Explicit

Sub xxx()
    [a1] = Format([a1], "yyyy-mm-dd")
End Sub

测试没有问题

调用函数可以这写：Run (工作簿名!宏百名,参数1,参数2……)
例如调度用A1.xls文件里宏名称为知ABC的宏，假定宏参数为1和5，代码为：Run （"A1.xls!ABC"，1,5）。道注意被调用宏的文件（回A1.xls）要处于打开状态。
因此上面这句答可以试试这么写：a3 = Application.Run("waspcn.xll!H_PT67", a1, a2)
在VBA中引用同置函数COUNTA，也可以循环计算，同理，求和可以引用内置函数，也可以循环累加，具体代码，得看条件。

其实就是两个操作。

1、统计M列，区域：连续360个以上的单元格都为0，这样的区域总共有多少个？

2、将M列所有数字为1的单元格，填充色改e799bee5baa6e997aee7ad94e59b9ee7ad94337为其它颜色（例如红色）。

相应完整VBA代码如下：

Sub count01_by_zzllrr()
    Dim n, n0, n1, i, v
    n = 0
    n0 = 0
    n1 = False
    If Range("M1") = 0 Then
        n0 = 1
    End If
    
    For i = 2 To Columns("M:M").Find("*", , , , 1, 2).Row
        v = Range("M" & i)
        If v = 1 Then
            Range("M" & i).Interior.Color = 255
            If n0 > 360 Then
                n = n + 1
            End If
            n0 = 0
            
            If Not n1 Then
                n1 = True
            End If
            
        Else
            
            If n1 Then
                n0 = n0 + 1
            End If
            
        End If
    
    Next i
    Range("N1") =n
    MsgBox ("总共" & n & "，且已填写在单元格N1")
End Sub