Доброго времени суток,
Немного доработал, чтобы также определял последний заполенный столбец:
Немного доработал, чтобы также определял последний заполенный столбец:
| Код |
|---|
Sub insert_text()
x = ActiveSheet.UsedRange.Find("*", , xlValues, xlWhole, , xlPrevious).Row
y = ActiveSheet.UsedRange.Column + ActiveSheet.UsedRange.Columns.Count - 1
ActiveSheet.Cells(x + 1, y) = "готов"
ActiveSheet.Cells(x + 1, y).Interior.Color = 65535
End Sub |
