在多个范围内循环并根据条件连接

Question

我有四个具有相同行数的1个列范围：Country，Name，Category，Amount。 “国家”，“名称”和“类别”范围具有字符串值，“金额”范围增加了一倍。我面临的问题是：只要金额高于或低于某个值，我需要在每个类别和每个名称下获得所有国家/地区的字符串。

样品表：

Country Name Category Amount 
croatia Jon Blue 14 
norway Jon Blue 23 
poland Rob Green 10 
egypt Eva Green 8 
canada Eva Pink 32 
brazil Rob Pink 25 
switzerland Rob Pink 35 
russia Jon Pink 27 
sweden Rob Black 32 
togo Rob Black 13 
benin Esther Violet 24 
morroco Jon Yellow 36 
romania Eva Yellow 35 
usa Eva Yellow 38 
japan Rob Yellow 34

对于量> 20，每个类别的正确的字符串结果将是：

Blue: Jon: norway(23) 
Pink: Eva: canada(32), Rob: brazil(25), switzerland(35) 
Yellow: Jon: morroco(36), Eva: romania(35), usa(38), Rob: japan(34) 
etc. 

不知道如何解决这个问题？没有编写代码，因为我无法确定哪里可以开始。正在考虑多维阵列，但这超出了我的编码能力...任何帮助非常感谢

Answer 1

下面的代码将让你接近你想要的。下面是输出：

Blue: Jon: norway(23), 

Pink: Eva: canada(32), Pink: Rob: brazil(25), Pink: Rob: switzerland(35), Pink: Jon: russia(27), 
Black: Rob: sweden(32), 
Violet: Esther: benin(24), 
Yellow: Jon: morroco(36), Yellow: Eva: romania(35), Yellow: Eva: usa(38), Yellow: Rob: japan(34), 

你需要做的唯一事情是防止诸如空白第二行的事情，重复的彩色输出和“”在每行的末尾。但我不想带走你所有的乐趣！如果您遇到问题，请重新发布。

Option Explicit 
Sub test() 
Dim r As Range, colorR As Range, resultR As Range 
Dim amountR As Range, countryR As Range, nameR As Range 
Dim color As String, name As String, country As String, amount As String 
Set resultR = Range("A19") 
Set r = Range("C2") 
Set colorR = r 
While r <> "" 
    While r = colorR 
    Set amountR = r.Offset(0, 1) 
    Set nameR = r.Offset(0, -1) 
    Set countryR = r.Offset(0, -2) 
    If amountR > 20 Then 
     If color = r & ": " Or color = "" Then color = "" Else color = r & ": " 
     If name = nameR & ": " Then name = "" Else name = nameR & ": " 
     country = countryR & "(" 
     amount = amountR & "), " 
     resultR = resultR & color & name & country & amount 
    End If 
    Set r = r.Offset(1, 0) 
    Wend 
    If resultR <> "" Then 
    resultR = Left(resultR, Len(resultR) - 2) 
    Set resultR = resultR.Offset(1, 0) 
    End If 
    Set colorR = r 
Wend 
End Sub