No.1ベストアンサー
- 回答日時:
オフィース95でもできるように基本的なものだけで作成してあります。
ワークシート名はツールのマクロの実行を使えば必要無いですが、
お使いのワークシート名にあわせてお使いください。
a = 1040 + 4
b = a Mod 4
last = a + (b * 3)
counter = 1
While counter < last
counter = counter + 4
While counter2 < 3
Worksheets("Sheet1").Cells(counter, 1).Insert Shift:=xlDown
counter2 = counter2 + 1
counter = counter + 1
Wend
counter2 = 0
Wend
No.2
- 回答日時:
コードを書いてみました。
参考にして下さい。(1)VBA画面で標準モジュールを挿入します。
(2)下のコードを貼り付けます。
(3)データ入力されたシートに戻って、データの1件目(左端がいい?)を選択して、メニューのツール→マクロ→マクロからGyoSonyuを実行します。
データがある間、選択セルを下に7(4+3)行下げながら行挿入しています。
データが連続に入力(未入力がない)された列を選択することが条件です。普通、一番左の列は有りますが。
Public Sub GyoSonyu()
Dim rg As Range 'セル
Dim ct As Integer 'カウンタ
Set rg = ActiveCell
ct = 4 '初期値
While rg.Offset(ct, 0) <> "" 'データが無くなるまで繰り返す
rg.Offset(ct, 0).Select '挿入する箇所を決める
Selection.EntireRow.Insert '行挿入
Selection.EntireRow.Insert '行挿入
Selection.EntireRow.Insert '行挿入
ct = ct + 7 'カウンタを進める(3行挿入したから行位置は+7)
Wend
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Access(アクセス) Accessのクエリの結果を、既存のエクセルに追加したい 2 2022/07/31 22:44
- Excel(エクセル) エクセルの散布図で新たに入力した値のデータラベルが空欄になる現象 1 2022/04/26 09:31
- Excel(エクセル) エクセルの早退時間を計算したいです。計算はうまくいっているようですが… 1 2022/12/26 16:22
- Excel(エクセル) エクセル テーブル機能の不明点 2 2022/04/14 14:10
- Excel(エクセル) エクセル365の関数。誕生日表記がおかしい 2 2022/10/17 18:52
- Visual Basic(VBA) エクセルVBAで次の様にデーターをテンプレートに反映したいのですが、よろし 5 2022/04/17 15:52
- Excel(エクセル) エクセルにて別シートの値を参照したif式で任意のセルと同じ値を結果に反映させたいです 3 2022/06/02 11:34
- HTML・CSS HTMLタグのあるCSVファイルを利用する方法 4 2023/03/19 14:41
- Excel(エクセル) 【エクセル】参照セルに何も入力が無い場合の空白表示方法 1 2022/05/26 10:01
- Excel(エクセル) エクセルの関数 1 2022/06/08 23:38
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
太ってる女とのSEX
-
直ぐに挿入をせまる彼女
-
恋人などと挿入したまま入眠し...
-
40代男性が好むSEXはどんなもの...
-
女性の方へ、イクことと女性の...
-
処女卒業して3ヶ月の大学生です...
-
入ってるかどうかわからない
-
もう少しでイケそうな時、どん...
-
挿入時、キツっって言いながら...
-
入れてる最中に、『めっちゃ濡...
-
あそこが狭い女性とのHについ...
-
嫁がバイブでしか逝きません。
-
挿入しやすい体位
-
すぐ乾いて挿入できません
-
挿入中の潮について、ものすご...
-
挿入のときに力を抜く方法はあ...
-
なぜかバックや騎乗位で挿入で...
-
(女性へ質問)ピストン運動の...
-
女性の方 イクようになったき...
-
手コキとマンコに挿入するのと...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
恋人などと挿入したまま入眠し...
-
太ってる女とのSEX
-
直ぐに挿入をせまる彼女
-
40代男性が好むSEXはどんなもの...
-
挿入時、キツっって言いながら...
-
処女卒業して3ヶ月の大学生です...
-
入れてる最中に、『めっちゃ濡...
-
もう少しでイケそうな時、どん...
-
女性の方へ、イクことと女性の...
-
手コキとマンコに挿入するのと...
-
あそこが狭い女性とのHについ...
-
入ってるかどうかわからない
-
いきそうでいけない・・・
-
嫁がバイブでしか逝きません。
-
すぐ乾いて挿入できません
-
挿入しやすい体位
-
女性の方 イクようになったき...
-
挿入のときに力を抜く方法はあ...
-
挿入中の潮について、ものすご...
-
前戯で一回イッてもらっていい...
おすすめ情報