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で質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
首吊りどこ締めるの
-
彼女のことが好きすぎて彼女の...
-
白血球が多いとどんな心配があ...
-
EXCELで条件付き書式で空白セル...
-
勃起する時って痛いんですか? ...
-
小数点以下を繰り上げたものを...
-
2つの数値のうち、数値が小さい...
-
イタリアから帰国する際、肉製...
-
エクセル指定した範囲からラン...
-
検便についてです。 便は取れた...
-
エクセルのラベルの値(文字列...
-
Excel 0目標に対して数字があ...
-
エクセルで数式の答えを数値と...
-
甲状腺が腫れているが血液検査...
-
風俗店へ行く前のご飯
-
excelのIF関数 A,Bの大きいほ...
-
テスターで断線を調べる方法教...
-
EXCELの条件付き書式で数式を空...
-
VLOOKUP関数を使用時、検索する...
-
ワードのページ番号をもっと下...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
首吊りどこ締めるの
-
彼女のことが好きすぎて彼女の...
-
白血球が多いとどんな心配があ...
-
勃起する時って痛いんですか? ...
-
精子が黄色?
-
検便についてです。 便は取れた...
-
これって喉仏ですか? 私は女性...
-
小数点以下を繰り上げたものを...
-
甲状腺が腫れているが血液検査...
-
精液の落とし方を教えてください
-
エクセル指定した範囲からラン...
-
EXCELで条件付き書式で空白セル...
-
2つの数値のうち、数値が小さい...
-
精子に血が・・・
-
エクセルのラベルの値(文字列...
-
イタリアから帰国する際、肉製...
-
ある範囲のセルから任意の値を...
-
リンク先のファイルを開かなく...
-
中出しをするとお腹が痛い・・・。
-
MIN関数で空白セルを無視したい...
おすすめ情報