Как скопировать значение из ячейки в различные ячейки VBA Excel

Question

Я хотел бы сделать что-то подобное с помощью VBA в Excel. Мне нужно скопировать каждое значение в столбце A (текстовое или числовое) и формат ячейки в столбец B дважды. Результат должен быть таким:

Как это можно сделать в VBA?

Answer 1

Возможно, существует несколько десятков различных ответов на этот вопрос, поскольку вы не очень точны. Тем не менее, это один из возможных ответов:

Option Explicit 

Public Sub Test() 
Dim lngRow As Long 

For lngRow = 1 To 4 
    Worksheets("Sheet1").Cells(lngRow, 1).Formula = "=row()" 
    Worksheets("Sheet1").Cells(lngRow + lngRow - 1, 2).Formula = "=A" & lngRow 
    Worksheets("Sheet1").Cells(lngRow + lngRow, 2).Formula = "=A" & lngRow 
Next lngRow 

End Sub 

Answer 2

Я сделал это так:

Private Sub CommandButton1_Click() Dim WS Как Worksheet

For Each WS В ThisWorkbook.Worksheets

Dim c As Range 
For Each c In ws.UsedRange.Columns("A").Cells 
ActiveSheet.Cells(c.Value, 1).Formula = "=row()" 
ActiveSheet.Cells(c.Value + c.Value - 1, 2).Formula = "=A" & c.Value 
ActiveSheet.Cells(c.Value + c.Value, 2).Formula = "=A" & c.Value 

Следующий c Следующий ws

End Sub

Но если я помещаю нечисловое значение в первый столбец, это не сработает. Что мне не хватает?