Здравствуйте, есть вот такой макрос
как можно сделать чтобы при объединении и сложении строк оставались пустые строки . Нужно чтобы цветовая схема не убегала.
при работе макроса он строки объединяет и ломает расцветку.
| Код |
|---|
Sub test2()
Dim i%, j&, n&
Dim a, k&
a = Selection.Value
With CreateObject("Scripting.Dictionary")
On Error Resume Next
For i = 1 To UBound(a)
If .exists(a(i, 2) + a(i, 3)) Then
n = .Item(a(i, 2) + a(i, 3))
For j = 4 To 8
a(n, j) = a(n, j) + a(i, j)
Next
Else
k = k + 1
.Item((a(i, 2) + a(i, 3))) = k
For j = 1 To 9
a(k, j) = a(i, j)
Next
End If
Next i
End With
Selection.ClearContents
Selection(1).Resize(k, 9) = a
a = Empty
End Sub |
как можно сделать чтобы при объединении и сложении строк оставались пустые строки . Нужно чтобы цветовая схема не убегала.
при работе макроса он строки объединяет и ломает расцветку.
