求助各位大神 关于几个维度组成新的描述

三扇门门主

最近买了VBA的书在学习，看的慢，但是手头有活要做，下来求助大神。

如下，在前三列分别有三个维度，每个维度有不同行的数据，现在要根据这三个维度形成新的描述，如第四列，第四列描述的顺序是：口径_厚度_颜色。
求助怎么用VBA做。我自己试着用for each next做不出来。

口径	厚度	颜色	三个维度按顺序排列
32	5	绿色	32_5_绿色
45	6	灰色	32_5_灰色
	7		32_6_绿色
			32_6_灰色
			32_7_绿色
			32_7_灰色
			45_5_绿色
			以此类推
			直到列出
			45_7_灰色

hcm19522

F1:H49{=IF(ROW(A1)>PRODUCT(MMULT((TRANSPOSE($A$1:$D$4)<>"")*1,ROW(A$1:A$4)^0)),"",OFFSET(A$1,MOD(INT((ROW(A1)-1)/PRODUCT(MMULT((TRANSPOSE(B$1:$D$4)<>"")*1,ROW(A$1:A$4)^0))),COUNTA(A$1:A$4)),))

I1:I49=IF(H1="","",OFFSET(D$1,MOD(ROW(A1)-1,COUNTA(D$1:D$4)),))

三扇门门主

hcm19522 发表于 2019-3-9 18:30
F1:H49{=IF(ROW(A1)>PRODUCT(MMULT((TRANSPOSE($A$1:$D$4)"")*1,ROW(A$1:A$4)^0)),"",OFFSET(A$1,MOD(INT(( ...

非常感谢

三扇门门主

我用for each写了一个，这一个例子好像可以，请大神们再给看看，有没有问题

Sub 组合()
Dim X1 As Range, X2 As Range, X3 As Range, K4 As Integer, Y1 As String, Y2 As String, Y3 As String, Y4 As String

For Each X1 In [A2:A4]
Y1 = X1.Value
    For Each X2 In [B2:B5]
    Y2 = X2.Value
        For Each X3 In [C2:C3]
        Y3 = X3.Value
           If Y3 = "" Then
           GoTo TIAOZHUAN1
           End If
           Y4 = Y1 & Y2 & Y3
           K4 = K4 + 1
           Cells(K4 + 1, "D") = Y4
        Next X3
TIAOZHUAN1:
     Next X2
       If Y2 = "" Then
           GoTo TIAOZHUAN2
           End If
TIAOZHUAN2:
Next X1
End Sub