[[20180305204442]] 『行を挿入したい』(むとう) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『行を挿入したい』(むとう)

すいません教えてください」
マクロで行を挿入したいです

 Rows(i":23").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
上記部分の書き方が解りません

ターゲット行から23行目まで行を挿入したいです
よろしくお願いします

Sub Macro18()
'
' Macro18 Macro
Dim i As Long, ii As Long
i = Range("A:A").Find("赤").Row

 Rows(i":23").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

End Sub

< 使用 Excel:Excel2013、使用 OS:Windows7 >


ii = 23

 Rows(b & ":" & bb).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

(むとう) 2018/03/05(月) 20:59


 Rows(i & ":23").Insert Shift:=xlDown, Origin:=xlFormatFromLeftOrAbove

      ↑
  ここ

 では?

(隠居じーさん) 2018/03/05(月) 21:38


聞きたいことがよくわからないし、それとは違うところになるんでしょうけど気になったので。

(1)
Findメソッドの引数が省略されてるので、場合によってはFindメソッド失敗しそうなんですが、ちゃんと必要な引数を記述するなり、失敗したら場合の記述をするなりの手だてを講じておかないと、エラー停止するんじゃないでしょうか?
https://www.moug.net/tech/exvba/0150111.html

(2)
>i = Range("A:A").Find("赤").Row
というように、A列全体を探すようにしてますけど、
>Rows(i":23").Insert
とされているのでターゲット行は、23行目までのどれかを想定しているんでしょうか。
その場合、Findメソッドの対象はA列全体でなくて、A1〜A23にしたほうがいいのでは?

(もこな2) 2018/03/05(月) 22:07


隠居じーさん 様
もこな2  様
申し訳ございません
下記の書式で完了してました

急いでいて コメント入れるの忘れてました

 Rows(b & ":" & bb).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
(むとう) 2018/03/05(月) 23:14

>下記の書式で完了してました

変数「b」も変数「bb」も唐突に出てきてるし、いろいろよくわからないけど自己解決できましたってことでしょうか?
(もこな2) 2018/03/06(火) 03:54


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.