| |
|
|
| | после строчки:
countRec = fnCopyFromRecordset(rstSource, .Cells(currentRow, 1), "")
|
Три варианта, на выбор:
.Cells(currentRow, 1).FormulaR1C1 = "=1"
.Range(.Cells(currentRow + 1, 1), .Cells(currentRow - 1 + countRec, 1)).FormulaR1C1 = "=R[-1]C+1"
|
.Cells(currentRow, 1) = 1
.Cells(currentRow, 1).AutoFill .Range(.Cells(currentRow, 1), .Cells(currentRow - 1 + countRec, 1)), 2 'xlFillSeries
|
For i = 1 To countRec
.Cells(currentRow - 1 + i, 1) = i
Next i
|
| |
| |
|
