(1)シート1のA1に5と入力

質問

(1)シート1のA1に5と入力
(2)シート1のB列に入れた数値入力

↓

(3)シート2のE列にシート1の数値を反映（10と入力すればJ列）

とするにはどのようなマクロを組めばいいでしょうか？
よろしくお願いします。

回答No.1

kmetu · ベストアンサー

Worksheets("シート1").Range("B:B").Copy
Worksheets("シート2").Cells(1, Range("A1").Value).PasteSpecial
Application.CutCopyMode = False

です

お礼

ありがとうございます！！！

回答No.3

imogasi

この質問では意味が判りにくいよ。質問する前に、もっと読み直して、判りやすく正確にして。
プログラムを考えるのは論理的な作業で、そんな情況ではない。
ーー
シート２の反映列は
＞シート1のA1に5と入力
＞10と入力すればJ列）
５の場合はE列に、10と入力すればJ列のようにA1の値で列を決めるのか。
ーー
行は
＞シート2のE列にシート1の数値を反映
の行は
＞シート1のB列に入れた数値入力
という事で、シート１と同じ行に入れるのか
ーーー
VBAにはイベントという仕組みがある。
これを使うのかどうか？
ーーー
使うならシート１のタブにおいて右クリック。「コードの表示」を択ぶ。
出てくる画面で
Private Sub Worksheet_Change(ByVal Target As Range)

End Sub
を択び、
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then 'B列の入力に限定して
Worksheets("Sheet2").Cells(Target.Row, Worksheets("Sheet1").Range("a1")) = Target
End If
End Sub
でどう。シート１はシート名Sheet1にしている

回答No.2

tom04

こんにちは！
外していたらごめんなさい。

Sub test()
Dim i, j As Long
Dim ws1, ws2 As Worksheet
Set ws1 = Worksheets("sheet1")
Set ws2 = Worksheets("sheet2")
For i = 1 To ws1.Cells(Rows.Count, 1).End(xlUp).Row
j = ws1.Cells(i, 2)
ws2.Cells(Rows.Count, j).End(xlUp).Offset(1) = ws1.Cells(i, 1)
Next i
End Sub

こんな感じですかね？

以上、参考になれば幸いです。m(__)m

お礼

ありがとうございます！！！