То есть нужно чтобы при протягивании выделяемой колонки соответствующие цифры встали как надо.10 колонок, от 1000 до 10000. Хотя в идеале нужно от 0000 до 10000, но там от видимо от 0000 до 0999 видимо другая заморока. там текстовый формат придется ставить.P.S. Точнее в десяти колонка получится до 9999 .
Sub abc_xyz()
Dim c As Integer, k As Integer, r As Integer
'Application.ScreenUpdating = False
For r = 0 To 999
For c = 1 To 10
With Cells(r + 1, c)
.NumberFormat = "0000"
.Value = k
End With
k = k + 1
Next
Next
'Application.ScreenUpdating = True
End Sub
В общем так: спасибо всем за ответы. Но пытливый ум пробивает стены, с вашей помощью ребята, мужики, граждане, товарищи, господа, и просто хорошие люди. Все ваши ответы помогли , и явилось стимулом к простейшему решению. (Но повторюсь, - не без вашего участия. ) Спасибо вам всем, Удачи и ЗДОРОВЬЯ ! От 0000 до 0009 строчку построить не сложно, а дальше B1 и т. д.Пишем формулу, но только формат называется дополнительный- тип- табельный номер. С помощью формулы (=A2+10) протягиваем вниз каждую колонку (в моем случае 10 колонок) и вуаля- от 0000 до 9999 дело секунд. Завтра попробую добавить файл. Сейчас в тайге. Файла нет. И в облако недогадался скинуть.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 Sub abc_xyz() Dim c As Integer, k As Integer, r As Integer 'Application.ScreenUpdating = False For r = 0 To 999 For c = 1 To 10 With Cells(r + 1, c) .NumberFormat = "0000" .Value = k End With k = k + 1 Next Next 'Application.ScreenUpdating = True End Sub
что мне с макросом делать, макрос записать после действия. Один минус , он в первой ячейке пишет 0001., а надо 0000- в первой ячейке