[[20071003115919]]　『スペース消去』（藁掴）　ページの最後に飛ぶ

『スペース消去』（藁掴）

 以下の様にしてa1:a？までをセレクトしたいのですが、Select行でエラーします。
 haniの値が a1:a 259  ａと取得した259行の間にスペースが入る為の様です。
 どうすれば良いでしょうか？
 hani = Trim(hani)にてスペースを消去しようとしましたが消去出来ません。

 'データ入力最終行番号の取得
 myERow_m = Worksheets("header").Range("A65536").End(xlUp).Row
 hani = "a1:a" + Str(myERow_m)
 hani = Trim(hani)
 Worksheets("header").Range(hani).Select

 それで空白が入るとは思えませんが？
 よく見たら、Str(myERow_m) でエラーになるはずですが？
 CStr(myERow_m) でしょ？ でも、& で繋げてやれば文字列になります。

 Dim myERow_m As Long, hani As String
 myERow_m = Sheets("header").Range("A65536").End(xlUp).Row
 hani = "a1:a" & myERow_m
 With Sheets("header")
    .Select
    .Range(hani).Select
 End With
 (seiya)

 seiyaさん大変有り難う御座いましたうまく出来ました。そして報告がないまま放置しました事
 お詫び致します｡（藁掴）

コメント返信：

[ 一覧(最新更新順) ]

[[20071003115919]] 『スペース消去』（藁掴） ページの最後に飛ぶ

[[20071003115919]]　『スペース消去』（藁掴）　ページの最後に飛ぶ