Debug.Print变成msgbox

Peny2020

请教一个问题
For i = 1 To UBound(resArr)
If resArr(i, 2) > 1 Then
aa = Left(resArr(i, 1), 10)
Debug.Print aa
End If
Next

这个aa出来是两个名字，怎么用msgbox同时显示这两个名字？谢谢

q3698995

1. Sub test()
   
2.     For i = 1 To UBound(resArr)
   
3.         If resArr(i, 2) > 1 Then
   
4.             aa = aa & Left(resArr(i, 1), 10) & Chr(13)
   
5.         End If
   
6.     Next
   
7.     MsgBox aa
   
8. End Sub

复制代码

Peny2020

q3698995 发表于 2024-3-27 13:52

十分感谢指教。

Peny2020

q3698995 发表于 2024-3-27 13:52

你好，我还有个问题想请教，就是上面得出aa后，我想在Range("g8:g" & MaxRow)区域内找出与变量aa里相符的单元格变色，但下面的代码没反应，红色部分应该怎么写好？谢谢了。

With Workbooks(c).Sheets("DN-PL")
Set rng = .Range("g8:g" & MaxRow)
For Each cell In rng
        If cell.Value = aa Then
           cell.Interior.Color = vbYellow
           cell.Offset(0, 3).Interior.Color = vbYellow
        End If
Next cell
End With

q3698995

盲猜有没可能是aa某尾多个换行符。
需要具体看g列里的数据是什么样的。

With Workbooks(c).Sheets("DN-PL")
Set rng = .Range("g8:g" & MaxRow)
For Each cell In rng
        If cell.Value = left(aa,len(aa)-1) Then
           cell.Interior.Color = vbYellow
           cell.Offset(0, 3).Interior.Color = vbYellow
        End If
Next cell
End With

q3698995

Peny2020 发表于 2024-3-27 15:23
你好，我还有个问题想请教，就是上面得出aa后，我想在Range("g8:g" & MaxRow)区域内找出与变量aa里相符的 ...

盲猜有没可能上面的aa多个换行符，aa=left(aa,len(aa)-1),具体要看g列数据

Peny2020

q3698995 发表于 2024-3-27 16:35
盲猜有没可能上面的aa多个换行符，aa=left(aa,len(aa)-1),具体要看g列数据

aa是这种


rng = .Range("g8:g" & MaxRow)的数据是这种，我尝试变成split(aa,chr(13))结果却报错了。

q3698995

你的错误在于框出来的那句，判断字符串等于一个数组，报错类型不匹配。

正常是用字典，然后用字典的exists方法判断是否存在，存在则标色。
如果用字符串，用instr或者like判断是否包含。
下面简单举例：


Sub test()
    aa = " "
    For i = 1 To UBound(resArr)
        If resArr(i, 2) > 1 Then
            aa = aa & Left(resArr(i, 1), 10) & " "
        End If
    Next
    If InStr(aa, " " & cell.Value & " ") > 0 Then '判断aa是否包含cell.Value
        '包含则执行的代码
    End If
End Sub

Peny2020

q3698995 发表于 2024-3-28 08:44
你的错误在于框出来的那句，判断字符串等于一个数组，报错类型不匹配。

正常是用字典，然后用字典的exis ...

十分感谢你的指导，清楚明白了。