[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『行を挿入したい』(むとう)
すいません教えてください」
マクロで行を挿入したいです
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 >
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
急いでいて コメント入れるの忘れてました
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.