自动把颜色编号加进去

我要是把颜色弄成 “白色#001，黑色#008”就是颜色跟色号间加个“#”，这个要怎么做

Dim m As Variant
Dim n As Variant
Dim s As String
Dim r As String
Dim t As String
Dim i_2 As Integer
m = Split(Range("A1").Value, ",") '数组
n = UBound(m)
For i = 0 To n
s = m(i)
For i_2 = 1 To 1000
r = Worksheets(2).Range("b" & i_2).Value
t = Worksheets(2).Range("a" & i_2).Value
If r = s Then
Range("b1").Value = Range("b1").Value + s + "#" + t
Else
End If
Next i_2
Next i