[[20170510124236]]　『マクロで、最終行まで毎行２行挿入したい』（たつみ）　ページの最後に飛ぶ

『マクロで、最終行まで毎行２行挿入したい』（たつみ）

エクセルのマクロ初心者です。

「Ａ３」セルから、最終行まで２行挿入したいです。
ただ、表のつくりが特殊なので「Ａ３」～「Ｆ３」のどこかに
入力があります。
（インデントでは、うまくいかない段落をつけているため）

なので、ネットに落ちている最終行を取得して挿入だとうまくいきません。
しっかり、数字が入っているところはＪ列です。
それでも、空白まじりです。

なので、
挿入するスタート行とエンド行を指定して何行挿入するのかを指定して
実行したいのですが難しいですか？

宜しくお願いいたします。

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

 ちょっとよく分からないです。

 下図の様な状態なんですか？

 それだと、どう挿入すればいいんですか？（結果図を書いて頂けませんか？）

  行 _A_ __B__ _C_ __D__ __E__ __F__ _G_ _H_ _I_ _J_
   1                                                
   2                                                
   3               DATA                             
   4                                               3
   5                     DATA                      3
   6                           DATA                 
   7                                               2
   8                                                
   9                                               1
  10     DATA

（半平太） 2017/05/10(水) 16:14

半平太様

イメージには、近いですが。

データとデータは、現時点ではつまってます。
A3　データあり
B4　データあり
C5　データあり
D6　データあり
D7　データあり

と、なっていたら
A3　データあり
B4　空白行挿入
B5　空白行挿入
B7　データあり
C5 空白行挿入
C6　空白行挿入
C7　データあり

と、最終行まで続きます。

（たつみ） 2017/05/10(水) 23:00

 A～Fのどこかにデータが必ずあるなら

 Sub Insert2BlankRowsFromBottom()
     Dim lastRow As Long, NN As Long

     With Intersect(ActiveSheet.UsedRange, Columns("A:F"))
         lastRow = .Find(What:="*", LookIn:=xlValues, LookAt:= _
         xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, SearchFormat:=False).Row
     End With

     For NN = lastRow To 4 Step -1
         Rows(NN).Resize(2).Insert Shift:=xlDown
     Next NN
 End Sub

（半平太） 2017/05/11(木) 06:46

コメント返信：

[ 一覧(最新更新順) ]

[[20170510124236]] 『マクロで、最終行まで毎行２行挿入したい』（たつみ） ページの最後に飛ぶ

[[20170510124236]]　『マクロで、最終行まで毎行２行挿入したい』（たつみ）　ページの最後に飛ぶ