cần giúp về vòng lặp do while giữa màu sắc và size của sản phẩm

[minhlq123]

hi các anh chị, em có bài toán sau cần giúp đỡ. file đính kèm ah. bài toán đã chạy đúng ý với điều kiện cột màu sắc và kích thước không bằng nhau. th cột màu sắc và cột kích thước bằng nhau thì bài toán ko còn đúng nữa. mọi người giúp em sửa code với

 

[SA_DQ]

Bạn thử với cái ni xem sao:

Sub ColorAndSize()
 Dim cArr(), sArr()
 Dim J As Long, W As Long, Z As Long

 cArr() = Range([B2], [B2].End(xlDown))
 sArr() = Range([D2], [D2].End(xlDown))
 ReDim Arr(1 To UBound(cArr()) * UBound(sArr()), 1 To 2)
 For J = 1 To UBound(cArr())
    For W = 1 To UBound(sArr())
        Z = Z + 1:                  Arr(Z, 1) = cArr(J, 1)
        Arr(Z, 2) = sArr(W, 1)
    Next W
 Next J
 [o2].Resize(Z, 2).Value = Arr()
End Sub

 

[minhlq123]

Bạn thử với cái ni xem sao:

Sub ColorAndSize()
Dim cArr(), sArr()
Dim J As Long, W As Long, Z As Long

cArr() = Range([B2], [B2].End(xlDown))
sArr() = Range([D2], [D2].End(xlDown))
ReDim Arr(1 To UBound(cArr()) * UBound(sArr()), 1 To 2)
For J = 1 To UBound(cArr())
    For W = 1 To UBound(sArr())
        Z = Z + 1:                  Arr(Z, 1) = cArr(J, 1)
        Arr(Z, 2) = sArr(W, 1)
    Next W
Next J
[o2].Resize(Z, 2).Value = Arr()
End Sub

hi, em cảm ơn anh, em mở rộng bài toán của anh thì gặp vấn đề sau

Sub ColorAndSize()

Dim cArr(), sArr(), cpArr(), mlinkArr(), pArr()

Dim J As Long, W As Long, Z As Long



    cArr() = Range([B2], [B2].End(xlDown))

    sArr() = Range([D2], [D2].End(xlDown))

    cpArr() = Range([C2], [C2].End(xlDown))

    pArr() = Range([E2], [E2].End(xlDown))

    mlinkArr() = Range([I2], [I2].End(xlDown))

ReDim Arr(1 To UBound(cArr()) * UBound(sArr()), 1 To 8)

For J = 1 To UBound(cArr())

    For W = 1 To UBound(sArr())

        Z = Z + 1

        Arr(Z, 1) = cArr(J, 1)

        Arr(Z, 2) = cpArr(J, 1)

        Arr(Z, 3) = sArr(W, 1)

        Arr(Z, 4) = pArr(W, 1)

        Arr(Z, 8) = mlinkArr(W, 1)

    Next W

Next J

[B2].Resize(Z, 8).Value = Arr()

End Sub

khi cột B hoặc d hoặc cả B và d chỉ có 1 màu sắc hoặc 1 kích thước nó sẽ bị lỗi,
em muốn rằng
-khi côt B và D chỉ có 1 giá trị ,sẽ không làm gì cả
- khi cột B hoặc D có 1 giá trị màu sắc hoặc kích thước thì sẽ tiến hành làm giống như code của anh và ko bị lỗi.
anh sửa giúp em với[/B][/B]

 

[befaint]

giúp

.

 

[minhlq123]

.