こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

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

Sub 転記_Click()
Dim wst1 As Worksheet
Dim wst2 As Worksheet
Set wst1 = ThisWorkbook.Worksheets("Sheet1")
Set wst2 = ThisWorkbook.Worksheets("Sheet2")

For i = 10 To 12
If wst1.Range("A" & i) <> "" And Not IsNull(wst1.Range("A" & i)) Then
myRow = wst2.Cells(Rows.Count, 1).End(xlUp).Row + 1
wst2.Range("A" & myRow) = wst1.Range("D4")
wst2.Range("B" & myRow) = wst1.Range("A4")
wst2.Range("C" & myRow) = wst1.Range("A" & i)
wst2.Range("D" & myRow) = wst1.Range("B" & i)
wst2.Range("E" & myRow) = wst1.Range("C" & i)
wst2.Range("F" & myRow) = wst1.Range("D" & i)
End If
Next i
wst1.Range("A4").ClearContents
wst1.Range("A10:C12").ClearContents
End Sub

こんにちは、はじめまして!よろしくお願いします!!
今回イベントの係になりました、複数人の回答を集計するのに上のを
作って頂きシュミレーションも上手くいったのですが…

この集計とは別にA6の項目も準備の為に必要だと個人的に思い
昨日一晩色々と試したのですが、上手くいきません。

メモ的なものですので、同じSheet2(転記データの横)の G H I とかに  D4 A5 A6と3箇所
上から順番に"一行だけ"入るようには出来ないでしょうか。
もしくは、シートを増やして新Sheet3のA B C に D4 A5 A6 と上から順番に転記され入る様にしたいです。(一行だけ)
(※自分でやると G H I に3行も同じものが転記されてしまいます、上3行空いて4行目から、入ったりします)

クラブ活動の合間とかに各々に回答してもらう予定です。
ボタンを押すと転記されその後クリアで空欄にし次の人…なる設定にします、
1回のボタンで出来ますでしょうか(上のものに組み込んだり出来るでしょうか)

お詳しい先生方どうぞよろしくお願いします。

投稿日時 - 2014-11-22 18:15:24

QNo.8833659

困ってます

質問者が選んだベストアンサー

>Sheet2(転記データの横)の G H I とかに  D4 A5 A6と3箇所
ですので
・・・
wst2.Range("A" & myRow) = wst1.Range("D4")
wst2.Range("B" & myRow) = wst1.Range("A4")
wst2.Range("G" & myRow) = wst1.Range("D4")
wst2.Range("H" & myRow) = wst1.Range("A5")
wst2.Range("I" & myRow) = wst1.Range("A6")
wst2.Range("C" & myRow) = wst1.Range("A" & i)
wst2.Range("D" & myRow) = wst1.Range("B" & i)
・・・
と追加します。
wst1.Range("A4").ClearContents
も必要なら同様に追加します。

投稿日時 - 2014-11-22 18:23:06

お礼

確認しました!素晴らしいでーす!!!思った通りに出来ました、スッキリしました。
しかもこんなにお早くありがとうございました。
早速色々と仕上げに掛かろうと思います。大変感謝致しますm(_ _)m

またよろしくお願い致します

投稿日時 - 2014-11-22 20:10:18

このQ&Aは役に立ちましたか?

1人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問