小编Cod*_*ice的帖子

我正在尝试学习如何在VBA中使用stringbuilder函数,但是在VBA中查找有关如何使用它们的资源时遇到了问题.我可以使用一些帮助来使用预制的stringbuilder类.

我知道这些潜艇中的每一个都在编写最终代码方面发挥了一定作用.例如,我已经看到了其他使用的示例,"string.append"但我不确定它是否在这种情况下是如何工作的.我可以使用一些洞察力来了解如何使用此代码.请帮忙!

我理解的最好方法是,如果有人可以使用这个示例stringbuilder类将几行示例代码放在一起.谢谢!!

Private m_arrBuffer
Private m_strDelimiter
Private Sub Class_Initialize()
    m_arrBuffer = Array()
    m_strDelimiter = “”
End Sub

Private Sub Class_Terminate()
    m_arrBuffer = Empty
End Sub

Public Property Get Delimiter()
    Delimiter = m_strDelimiter
End Property

Public Property Let Delimiter(strDelimiter)
    m_strDelimiter = strDelimiter
End Property

Public Sub Append(strValue)
    ReDim Preserve m_arrBuffer(UBound(m_arrBuffer) + 1)
    m_arrBuffer(UBound(m_arrBuffer)) = strValue
End Sub

Public Sub AppendLine(strValue)
    Me.Append strValue & vbCrLf
End Sub

Public Sub Compact()
    If Not Me.Delimiter = “” Then
        strOriginalDelimiter = Me.Delimiter …

我正在尝试使用一个表(增长)进行大量计数,按日期计算超过4,000个条目.下图中的表格是我要填写的内容.我有一些简单的标准,但我不知道如何在单元格中的公式中执行此操作,我可以复制到这个巨大的表格中.我尝试了多个CountIf和CountIfs没有运气.

标准如下:我想计算特定日期(A列)中工具出现的次数(E列).仅在列W不为空时计数.然后我想通过整个表格复制它,每个日期检查每个工具.

数据来自此表: