2019-09-18

anond:20190918132007

すみません

Option Explicit

Sub 不要行削除()

Dim i As Variant

For i = 1500 To 13 Step -1

If Cells(i, 17).Value = "削" Then

Rows(i).Delete

End If

Next i

End Sub


longじゃだめだーとvariantにしたのですがそれでも定義エラー13です

記事への反応 -
  • VBAで、Long型の変数に1500を入れると定義エラーになる

    VBA初心者なんですが Long型は整数なら何でも入るんですよね? 1500(ちなみに行数)を入れると定義エラー13になるんです ちなみにもっと少ない数字(800とか)だとエラーにならない ...

    • anond:20190918131612

      ソース出しんさい。

      • anond:20190918132007

        すみません Option Explicit Sub 不要行削除() Dim i As Variant For i = 1500 To 13 Step -1 If Cells(i, 17).Value = "削" Then Rows(i).Delete End If Next i End Sub longじゃだめだーとvariantにしたのですがそれでも...

        • anond:20190918165736

          面倒だから Dim i でも良いよ

          • anond:20190918170359

            それでも 実行時エラー13 型が一致しません。 と出てしまいます。 出ない時もあり意味がわかりません。 デバッグを押すとマーカーがつくのは If Cells(i, 17).Value = "削" Then の行です

            • anond:20190918170916

              そもそもセルには必ずデータ入ってんの? 空だったら比較できないからエラーになると思うけど。 「Cells(i, 17).Value」を一旦変数に入れて エラーになった時の値確認しな。Emptyかもよ。

              • anond:20190918171253

                それっぽいです セルにデータ入ってないことあります その場合どう修正すればいいでしょうか?

                • anond:20190918171543

                  VBA Empty とかで調べな。 セルの値を変数に入れて、 If文で、Emptyじゃない場合で、なおかつ「削」を含むかみれば良い。

        • anond:20190918165736

          1行目消しなよ素人くさいから

記事への反応(ブックマークコメント)

アーカイブ ヘルプ
ログイン ユーザー登録
ようこそ ゲスト さん