Question

我想计算＆＃34; c＆＃34;在我的数组txt中。 1到0的转换意味着一个新的循环，这就是为什么我把一个＆＃34; c＆＃34;只要这发生。在这段代码中，当我尝试计算＆＃34; c＆＃34;时，我得到类型不匹配。感谢您的帮助。

Sub CopyColumn()
Dim finalrow As Long
Dim i As Variant
ReDim arrayciclos(0)
Dim str As String
Dim ciclos As Variant

finalrow = Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To finalrow
 arrayciclos(UBound(arrayciclos)) = Range("J" & i)
 ReDim Preserve arrayciclos(UBound(arrayciclos) + 1)
Next i


For i = LBound(arrayciclos) To UBound(arrayciclos)
    txt = txt & arrayciclos(i) ' & vbCrLf
  Next i

  MsgBox txt


Do While InStr(txt, "10")
    txt = Replace(txt, "10", "c")
    Loop
MsgBox txt


ciclos = 0: i = 0
For i = 0 To finalrow
    If txt(i) = "c" Then ' i have Type Mismatch here
        ciclos = ciclos + 1
    End If
Next

MsgBox (ciclos)


End Sub

Answer 1

我认为你使用的循环太多了。如果你想遍历数组txt来计算＆＃34; c＆＃34;那么你只需要做

        Dim MyArray As Variant
        dim count as integer
        'specify your range. For example
        MyArray = Range("BS27:DS50000")

        'Loop through and find all occurrences of "c"
        For i = LBound(MyArray) To UBound(MyArray)
          For j = LBound(MyArray, 2) To UBound(MyArray, 2)
             If MyArray(i, j) = "c" Then count = count + 1
          Next j
        Next i

        msgbox count

如果＆＃34; c＆＃34;如果MyArray（i，j）=＆＃34; c＆＃34;如果MyArray（i，j）=＆＃34; c＆＃34;并将asterix放在＆＃34; c＆＃34;的两侧。像asterix c asterix。这将是一个角色匹配

Answer 2

根据您发布的代码，未明确声明txt变量。此外，当您使用第二个循环将值与txt = txt & arrayciclos(I)连接在一起时，变量的隐式声明变为一种字符串。您应修改代码以包含Option Explicit语句以检查未声明的变量。此外，您应该使用Mid函数来执行＆＃34; c＆＃34;最终循环中的角色。

Option Explicit   ' <-- added to check for undeclared variables

Sub CopyColumn()
Dim finalrow As Long
Dim i As Variant
ReDim arrayciclos(0)
Dim str As String   ' <-- unused variable problaby should have been named txt in your example
Dim ciclos As Variant

finalrow = Cells(Rows.Count, 1).End(xlUp).Row
finalrow = 9
For i = 2 To finalrow
 arrayciclos(UBound(arrayciclos)) = Range("J" & i)
 ReDim Preserve arrayciclos(UBound(arrayciclos) + 1)
Next i


For i = LBound(arrayciclos) To UBound(arrayciclos)
    str = str & arrayciclos(i) ' & vbCrLf
  Next i

  MsgBox str


Do While InStr(str, "10")
    str = Replace(str, "10", "c")
    Loop
MsgBox str


ciclos = 0: i = 0
For i = 0 To finalrow
    If Mid(str, i + 1, 1) = "c" Then ' <-- changed to Mid(string, start, len)
        ciclos = ciclos + 1
    End If
Next

MsgBox (ciclos)


End Sub

在数组Excel VBA中标识和计算相同值的元素

2 个答案: