关于EXCEL宏的问题

关于您好，有个问题想请教您，关于EXCEL宏，但数据无法压缩到200K内，您能不能把您的Email地址发给我，我把附件和要求通过Email发给您，请您帮忙。的问题

For s = 0 To UBound(drr)
If Range(drr(s))。Count = 7 Then
Sheets(brr(i))。
Range(drr(s))。Interior。ColorIndex = 6
[c65536]。End(xlUp)。
Offset(1) = brr(i) & ” ” & drr(s)
Else
If Range(drr(s))。
Count = 8 Then
Sheets(brr(i))。Range(drr(s))。Interior。ColorIndex = 3
[d65536]。
End(xlUp)。Offset(1) = brr(i) & ” ” & drr(s)
Else
If Range(drr(s))。
Count = 9 Then
Sheets(brr(i))。Range(drr(s))。Interior。ColorIndex = 4
[e65536]。
End(xlUp)。Offset(1) = brr(i) & ” ” & drr(s)
Else
If Range(drr(s))。
Count = 10 Then
Sheets(brr(i))。Range(drr(s))。Interior。
ColorIndex = 7
[f65536]。End(xlUp)。
Offset(1) = brr(i) & ” ” & drr(s)
End If
End If
End If
End If
Next s。