エクセルのマクロについてです。

Writer: admin Type: foresth Date: 2019-01-08 00:00
エクセルのマクロについてです。データを整理したいのですがどのように書いたらいいかわかりません。Aの列の値をx、Bの列をyの値として、別シートを(x,y)座標に見立てて、Cの列の値をセルに入れたいです。例A1に2、B1に4、C1に10と書いてあったら別のシートのB4に10と代入したいです。よろしくお願いします。共感した0###質問の例であれば・・・Sub Sample() Dim c As Integer, r As Integer With Sheets("Sheet1") c = .Range("A1") r = .Range("B1") Sheets("Sheet2").Cells(r, c) = .Range("C1") End WithEnd Subこれを縦方向に繰り返すのであれば、For文を使って縦方向に繰り返すだけです。Sub Sample() Dim c As Integer, r As Integer,i as Integer With Sheets("Sheet1")For i=1 to .Range("A" & Rows.Count).End(xlUp).Row c = .Range("A" & i) r = .Range("B" & i) Sheets("Sheet2").Cells(r, c) = .Range("C" & i)Next i End WithEnd Subナイス0
###ありがとうございます。無事できました。勉強になります。###例だけいうとSheets(別の).Cells([A1],[B1])=[C10]ループにするなら先頭がタイトル行の想定でWith ActiveSheet.UsedRangeFor Each rg In .Columns(1).Cells.Offset(1).Resize(.Rows.Count - 1, 1)Sheets(別の).Cells(rg, rg.Offset(0, 1)) = rg.Offset(0, 2)NextEnd Withナイス1

 

TAG