No.4ベストアンサー
- 回答日時:
No.3です!
補足の件ですが・・・
実は定義しても良かったのですが、
Dim ○○ as ・・・ と定義してもそのまま入力してもあまり変わらないかな?と思って
前回のように単純にやってみました。
Sheet名が変更されても、ある程度汎用性があったほうが良いということですかね?
もしそうであれば、仮にSheet1のSheet名が「あああ」・Sheet2が「いいい」 とすると
Sub test()
Dim i As Long
Dim sh1, sh2 As Worksheet
Set sh1 = Worksheets("あああ")
Set sh2 = Worksheets("いいい")
For i = 2 To sh2.Cells(Rows.Count, 1).End(xlUp).Row
sh1.Cells(1, 1) = sh2.Cells(1, 1)
sh1.Cells(i, 1) = sh2.Cells((i - 1) * 3, 1)
Next i
End Sub
というような感じでしょうか?
的外れならごめんなさいね。m(__)m
No.3
- 回答日時:
こんばんは!
こんな感じですかね?
Sub test()
Dim i As Long
For i = 2 To Worksheets("sheet2").Cells(Rows.Count, 1).End(xlUp).Row
Worksheets("sheet1").Cells(1, 1) = Worksheets("sheet2").Cells(1, 1)
Worksheets("sheet1").Cells(i, 1) = Worksheets("sheet2").Cells((i - 1) * 3, 1)
Next i
End Sub
他に良い方法があれば読み流してくださいね。m(__)m
この回答への補足
ありがとうございます!
ちなみに汎用性を利かせるために、すべてのsheet1,sheet2をいちいち変更するのはめんどうなので、何か変数に置き換える事は可能ですか?
C言語風に書きますと(これは間違っているのでしょうが、
SHEET1=sheet1
SHEET2=sheet2
For i = 2 To Worksheets("SHEET2").Cells(Rows.Count, 1).End(xlUp).Row
Worksheets("SHEET1").Cells(1, 1) = Worksheets("SHEET2").Cells(1, 1)
Worksheets("SHEET1").Cells(i, 1) = Worksheets("SHEET2").Cells((i - 1) * 3, 1)
みたいな感じです。
これだと、違う名前のワークシートでもSHEET1,SHEET2を変更するだけでいいじゃないですか。
できませんか?
No.2
- 回答日時:
ちょっと無理やりだけど・・
Sub test()
Dim i As Long
Dim Ws1 As Worksheet
Dim Ws2 As Worksheet
Dim 配列(1 To 11) As Variant
Set Ws1 = Worksheets("Sheet1")
Set Ws2 = Worksheets("Sheet2")
配列(1) = Ws2.Cells(1, 1).Value
For i = 1 To 10
配列(i + 1) = Ws2.Cells(i * 3, 1).Value
Next
For i = 1 To 11
Ws1.Cells(i, 1).Value = 配列(i)
Next
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 3 2023/02/28 01:13
- Visual Basic(VBA) VBAマクロでシートコピーした新シートにコピー元シートとの計算式の入れ方を教えて下さい。 5 2022/11/20 09:48
- Excel(エクセル) エクセルのマクロについて教えてください。 3 2023/02/07 14:47
- Excel(エクセル) エクセルのマクロでコピー後の貼り付け先を毎回指定したところにしたい 5 2022/08/12 10:47
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 1 2023/02/27 22:21
- Visual Basic(VBA) 顧客ごとに違う点検案内を作成するマクロ 4 2022/09/16 05:34
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2022/08/04 13:56
- Excel(エクセル) ユーザー定義について質問です。 2 2023/06/28 13:21
- Excel(エクセル) シート参照を含む数式を連続コピー 3 2022/12/10 11:42
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2023/02/26 13:19
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
首吊りどこ締めるの
-
中出しをするとお腹が痛い・・・。
-
麻疹風疹の抗体検査結果につい...
-
彼女のことが好きすぎて彼女の...
-
検便についてです。 便は取れた...
-
勃起する時って痛いんですか? ...
-
至急!尿検査前日にオナニーし...
-
納豆食べた後の尿の納豆臭は何故?
-
白血球が多いとどんな心配があ...
-
エクセルでエラーが出て困って...
-
精子が黄色?
-
健否~書類の書き方~
-
口の中に黒い血の塊
-
はしかの抗体検査は何科の病院...
-
これって喉仏ですか? 私は女性...
-
甲状腺が腫れているが血液検査...
-
舌の裏の痛みのないプツプツの...
-
イタリアから帰国する際、肉製...
-
小数点以下を繰り上げたものを...
-
風俗店へ行く前のご飯
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
首吊りどこ締めるの
-
エクセルでエラーが出て困って...
-
中出しをするとお腹が痛い・・・。
-
白血球が多いとどんな心配があ...
-
検便についてです。 便は取れた...
-
彼女のことが好きすぎて彼女の...
-
EXCELで条件付き書式で空白セル...
-
勃起する時って痛いんですか? ...
-
納豆食べた後の尿の納豆臭は何故?
-
精子が黄色?
-
至急!尿検査前日にオナニーし...
-
小数点以下を繰り上げたものを...
-
これって喉仏ですか? 私は女性...
-
値が入っているときだけ計算結...
-
口の中に黒い血の塊
-
舌の裏の痛みのないプツプツの...
-
甲状腺が腫れているが血液検査...
-
Excelで""で囲む方法
-
健否~書類の書き方~
-
リンク先のファイルを開かなく...
おすすめ情報