質問:
以下のようなエクセルのマクロを組んでいて、
わからないところがあります。
どなたか、ご教授いただけないでしょうか？
1,エクセルから表データをコピーしてcsvへ貼り付ける。
(表の行数はそのつど違うため、1からj行へ貼り付けるものとする）
2,csvの1〜100行目の書式を変える。
3,データが入っていない行に書式は必要ないので、
j+1行目から100行目までを削除する。（削除する行はnull値）
1〜2までは何とかできたのですが、3の行削除がうまくできません。
必要ない行がどこからどこまでとわかっていれば、
Rows("8:100").Select
Selection.Delete Shift:=xlUp
のような式にできるかと思うのですが、
Rows("j+1:100").Select
では、エラーになってしまいます。
どうすればいいでしょうか？
ご教授のほど、よろしくお願いいたします。
答え:
Range(Rows(j+1),Rows(100)).Select
.............................
他は答える:
この質問・回答は役に立ちましたか？
答え:
Dim Rng As String
Rng=Trim(Str(j+1)) & ":100"
Rows(Rng).Select
で如何でしょうか。
さぁ、やってみよう。
以下のようなエクセルのマクロを組んでいて、
わからないところがあります。
どなたか、ご教授いただけないでしょうか？
1,エクセルから表データをコピーしてcsvへ貼り付ける。
(表の行数はそのつど違うため、1からj行へ貼り付けるものとする）
2,csvの1〜100行目の書式を変える。
3,データが入っていない行に書式は必要ないので、
j+1行目から100行目までを削除する。（削除する行はnull値）
1〜2までは何とかできたのですが、3の行削除がうまくできません。
必要ない行がどこからどこまでとわかっていれば、
Rows("8:100").Select
Selection.Delete Shift:=xlUp
のような式にできるかと思うのですが、
Rows("j+1:100").Select
では、エラーになってしまいます。
どうすればいいでしょうか？
ご教授のほど、よろしくお願いいたします。
答え:
Range(Rows(j+1),Rows(100)).Select
.............................
他は答える:
この質問・回答は役に立ちましたか？
答え:
Dim Rng As String
Rng=Trim(Str(j+1)) & ":100"
Rows(Rng).Select
で如何でしょうか。
さぁ、やってみよう。
ウェブサイトのユーザーによる情報ポスト、JPQA.comのない保証の正しさ.