あるシートから別のシートに値をコピーし、別の列の同じシートに結果をコピーし直します。

Question

質問/陳述のあいまいさをお詫びしますが、わかりやすく説明します。

私はワークブック（sheet1）の1枚のシートにデータを処理するツールを持っています。そして、そのデータを提供するデータシート（sheet2）

基本的には、データシート（sheet2）のY2:LastRowの各値をsheet1のツールでその値を実行し、その結果をコピーして同じ行に貼り付けます別の列（正確にはAQ）。

With Worksheets("DataSheet") 

LastRow = .Range("Y" & .Rows.Count).End(xlUp).row 

    For Each cell In Worksheets("DataSheet").Range(Cells(LastRow, 25), Cells(1, 25)) 

    ThisWorkbook.Worksheets("Conversion Tool").Range("A1").Value = cell 
    Sheet1.Range("F14").Copy 
    Sheet2.Range(Cells(LastRow, 43), Cells(2, 43)).PasteSpecial (xlPasteValues) 

    Next 
End With 

をしかし、これはその列のすべてのセルに値を貼り付けていると：ここ

は、私がこれまで試してみましたものです。私はおそらくいくつかの基本的な修正があることを知っていますが、私はまだこれを把握しようとしています。

ありがとうございます。

Answer 1

これはあなた

With Worksheets("DataSheet")  
    LastRow = .Range("Y" & .Rows.Count).End(xlUp).Row 

    For Each Cell In .Range(Cells(LastRow, 25), Cells(1, 25)) 
     ThisWorkbook.Worksheets("Conversion Tool").Range("A1").Value = Cell 
     Sheet1.Range("F14").Copy 
     .Range("AQ" & Cell.Row).PasteSpecial xlPasteValues 
    Next 

End With 

のために働く必要がありますそれはあなたがコピーしたセルから行を取り、同じ行が、列AQに新しい値を入力します。