列にデータを追加する

Question

シートのsampleアクティブXボタンをクリックする必要がある場合は、別のシートから保存されたデータが行4から始まる列Oに表示されます。ユーザーがsample2ボタンをクリックし、sampleボタンの列Oで行った変更は、その後、列Aに保存され、列Bをあるsample2ボタンに保存されたデータは、その後、

Private Sub OptionButton1_Click() 
Dim main, data As Worksheet 
Dim i, lRow As Integer 

Set main = ThisWorkbook.Sheets("Main") 
Set data = ThisWorkbook.Sheets("Data") 

For i = 4 To 18 ' starts in 4 because it is where I want to start to copy the data 
    lRow = lRow + 1 
    main.Range("O" & i) = data.Range("A" & lRow) 
Next i 

End Sub 

O.列のデータに置き換えられます
これは、データシートからのデータのみをコピーします。しかし、逆の操作を行う方法を知らない場合、別のボタンをクリックすると、現在列Oにあるデータがデータシートの列Aに保存されます。ありがとう。

Answer 1

単純に次のように変更します。に

data.Range("A" & lRow) = main.Range("O" & i) 

：

data.Range("A" & lRow) = data.Range("O" & i) 

今、あなたはData "A"