• ベストアンサー

マクロで最終行を取得した列とは別の列の書式設定をしたい

エクセルのマクロの組み方を教えて下さい A列にデータが入っているとします たとえばA8:A50までとします(変動します) A列の最終行50行目を取得したら、 S列8行目から、S列の、A列で取得した最終行目まで罫線を引きたいのです (開始が8行目は決定しています) どうしてもS列すべてに罫線が引かれてしまい、困っています 罫線の設定はこちらで組めるので、そこまでの例を出していただきたいのですが…… 今日昼まで仕上げなければならないので、回答よろしくお願いします

質問者が選んだベストアンサー

  • ベストアンサー
  • n-jun
  • ベストアンサー率33% (959/2873)
回答No.1

Range("A8", Cells(Rows.Count, 1).End(xlUp)).Offset(, 18).Select と言う事でしょうか？

lucvbnm
質問者

お礼

さっそくありがとうございます offsetの使い方を間違えていたようです＞＜ これで仕上げられると思います どうもありがとうございました

  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. オフィス系ソフト

関連するQ&A

  • エクセルのマクロで罫線を引くには

    http://okwave.jp/qa4965370.htmlで質問させていただいた内容の発展です A列にデータが入っているとします たとえばA8:A50までとします(変動します) A列の最終行50行目を取得したら、 S～U列8行目から、S～U列の、A列で取得した最終行目まで罫線を引きたいのです (開始が8行目は決定しています) 罫線の設定はこちらで組めるので、そこまでの例を出していただきたいのですが…… S列のみだと、offsetで簡単にできたのですが、複数列にわたるとむずかしいでしょうか？ 暇な時にでも回答お願いします

  • EXCELマクロ　印刷範囲A1～Q列の最終行の罫線無視

    EXCELマクロで教えてください。 印刷範囲はA1～Q列の最終行です。 罫線は６７行まで引いていますが、印刷時には無視します。 なので、Q列のデータが10行までしかなかったら、 印刷範囲は、A1～Q10 Q列のデータが67行まであったら、 印刷範囲は、A1～Q67 です、よろしく教えてください。

  • 最終行を取得して、別の列にコピーするマクロ

    最終行を取得して、別の列にコピーするVBAマクロを教えてください。 （Excel2003です） 具体的には、次の通りです。 (1)A2から下方に項目NOが入っています。可変です。 　A2から項目NOの最終行までの行数をカウントします。 (2)B3:D3には数式が入っています。 　B4:D4以下に数式を(1)で取得した行数分だけコピーします。 かなり緊急で困っています。 教えていただけると助かります。

  • 列最終行を取得し別列に貼付け

    VBAでA列最終行を取得しB列にその行の値を貼付けることができますか宜しくお願いします。

  • マクロを使って最終行を取得して、範囲内の空白セルに

    マクロを使って最終行を取得して、範囲内の空白セルに指定の文字列を表示させたいです。 お世話になります。 要件としてはタイトルの通りです。 Excel2013を利用しています。 A列を参照して最終行を取得し、 B列の1～最終行までの空白セルに対して「未入力」という文字列を入力したいです。 この場合、考え方はいろいろあるのでしょうが どのようにコードを組めば良いでしょうか？ 自分では、まったく書けていないというのが正直なところです。 そこで御手数ですが、ご協力をお願いいたします。

  • マクロ CSVファイル取込 最終行、最終列の取得

    マクロでCSVファイルを取込むプログラムを作成しております。 最終行を取得するソースまではできたのですが、最終列を取得する処理ができておりません。 教えて頂けないでしょうか。 処理概要 (1)ボタンを押したら、Sheet2にCSVファイルがインポートされる (2)Sheet2に出力されたA2行～A8行とA2行～A8行の最終列までをSheet1のD4行～D10行、D4行～D10行の列にコピー　 (3)Sheet2に出力されたA9行目はコピーしない (4)Sheet2に出力されたA10行以降とA10行以降の最終列までをSheet1のA13行以降の最終列までにコピー 現在のソースは(2)、(4)の最終列を取得するソース以外はできています。 (2)、(4)の最終列を取得し、コピーする方法を教えて下さい。 現在のソースです。 Sub READ_TextFile() Dim LoadFileName As String Dim LR As Long '選んだcsvファイルをSheet1に読み込む LoadFileName = Application.GetOpenFilename("CSVファイル(*.csv),*.csv", 1, "読み込むcsvファイルを選んで下さい", False) If LoadFileName = "False" Then Exit Sub Workbooks.Open LoadFileName Cells.Copy ThisWorkbook.Sheets("Sheet2").Range("A1") ActiveWorkbook.Close False 'Sheet2のA2:A8をSheet1のD4を先頭セルとする範囲にCopy Worksheets("Sheet2").Range("A2:A8").Copy Worksheets("Sheet1").Range("D4") 'Sheet2のA列のデータのある最終行を取得しLRという変数に入れる LR = Worksheets("Sheet2").Cells(Rows.Count, 1).End(xlUp).Row 'Sheet2のA10からA列の最終行までをSheet1のA13を先頭セルとする範囲にCopy Worksheets("Sheet2").Range("A10:A" & LR).Copy Worksheets("Sheet1").Range("A13") End Sub

  • 何列の何行目が最終行なのか取得するコードはありますでしょうか？

    　　Ａ列　　Ｂ列　　Ｃ列 １　　○　　　○ 2　　　　　　　 ○ 3 　　　　　　　　　　　　　 ○ これは最終行が3行目と言うのがぱっと見でわかりますが もっと列も行も多い場合、 シート内の何列の何行目が最終行なのか取得するコードはありますでしょうか？ Cells(65536, ？).End(xlUp).Row を行ないたいのですが 毎回何列の行が一番下かを取得する方法があれば教えてください。 よろしくお願い致します。

  • エクセルのマクロでデータの最終行の特定の列を選択

    エクセルのマクロでデータの最終行の特定の列を選択するにはどういう構文を書けばいいですか

  • エクセルで結合セルがあるため最終行が解りません。

    エクセルで結合セルがあるため最終行が解りません。 A列2行目と3行目が結合セル（見出し）のためA列の最終行（罫線を除きデータが入ってる行）を求めれなくて困ってます。データは4行目以降から入力していく予定ですが Range("A" & Rows.Count).End(xlUp).Row は2となるため+1で入力行を求めてると3となってしまいます。A4からAの最後の行の範囲で罫線を除く最終行を出せればよいのですが　　最初は4　以下順次5　6　7　‥ どなたかご教示頂けないでしょうか？

  • エクセル・マクロで最終行を表示することについて

    エクセル・マクロで最終行を表示することについて Ｃ列の最終行を表示する場合、以下のマクロで表示できます。 今回はＣ列に Ｃ1＝Ａ1＆Ｂ1 Ｃ2＝Ａ2＆Ｂ2 　↓ という式が入力されている場合について質問します。 Ａ列とＢ列が空白の場合、Ｃ列には0が表示されます。 したがって、下記のマクロだとこの0の行が最終行となります。 私の希望はこのＣ列の0は空白とみなし、0以外の値や文字が入力されている最終行を表示することです。 どのような工夫をすれば可能でしょうか？ ご指導よろしくお願いします。 Sub 最終行表示() maxrow = Range("c65536").End(xlUp).Row MsgBox maxrow End Sub

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する