我可以在 vba 中的变量中限制 255 个字符吗？

Question

我需要在循环中创建一个变量，使其最大值为 255 个字符。我怎样才能做到这一点？ 我使用的系统将字符数限制为 255。在某些情况下，这个值被夸大了很多：P

                Dim resultado As String
            resultado = ""
            Range("m2").Select
            
            resultado = ActiveCell.Value
            ActiveCell.Offset(1, 0).Select
            
            
            Do While ActiveCell.Value <> ""
              resultado = resultado & ";" & ActiveCell.Value
              ActiveCell.Offset(1, 0).Select
            Loop

Answer 1

试试这个

        Dim resultado As String: resultado = ""
        Dim I as long: I = 0
        Range("m2").Select
        
        Do While ActiveCell.Offset(I ,0).Value <> ""
        If len( resultado & ";" & ActiveCell.Offset(I ,0).Value) < 255 Then
          resultado = resultado & ";" & ActiveCell.Offset(I ,0).Value
        End if 
           I = I + 1
        Loop

Answer 2

你可以这样做 -

Sub Test()
    Dim resultado As String, c As Range, v, sep
    
    Set c = ActiveSheet.Range("M2") 'start here
    Do
        v = c.Value
        If Len(v) = 0 Then Exit Do                      'stop if no more data
        If Len(resultado & sep & v) > 256 Then Exit Do  'too long?
        resultado = resultado & sep & v                 'not too long - append
        sep = ";"               'add separator after first value
        Set c = c.Offset(1)     'next cell
    Loop
    
    Debug.Print Len(resultado), resultado
End Sub