- ベストアンサー
エクセル2003です。シートA列の最初の罫線を判断してそこまでの行を削
エクセル2003です。シートA列の最初の罫線を判断してそこまでの行を削除したいと思っています。 罫線の判定方法がまず引っかかっているのですが、判定と削除を含めてすっきりしたマクロの記述はないでしょうか。お願いします。使用ソフトはエクセル2003です。
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
関連するQ&A
- エクセル最終行からA1の間罫線を引く方法？
またまた お願いします。 シートの最終行を求めるマクロは出来ました。 最終行からA1までの範囲に罫線をつけるマクロ記述が良く分かりません。 お願いします。
- ベストアンサー
- オフィス系ソフト
- エクセルでA列セルが空白の時その行に罫線を引くには
エクセルでA列セルが空白の時、その行の下側のみに２重罫線を引くマクロを教えて下さい。 色々試しましたがうまくいきません。例えば下記の様な表で３行目、７行目、１２行目の各下側にのみ２重罫線を引くマクロです。行数と空白行は、日々取り込んでいるデータによって変わります。知恵をお貸し下さい。（A列空白セルのＣ列にはSUM関数を入れております。うまく表記が出来ませんので念のため） A列 B列 Ｃ列 1行 123 酒 100 2行 123 酒 100 3行 ======================== 4行 215 ビール 200 5行 215 ビール 200 6行 215 ビール 200 7行 ========================= 8行 324 ワイン 300 9行 324 ワイン 300 10行 324 ワイン 300 11行 324 ワイン 300 12行 ========================
- 締切済み
- その他MS Office製品
- エクセル A列500行に入力された文字列を50行ずつ列換えしたい。
エクセル2003です。 A列に文字列が500行ほど入っているシートが20シシートほどあります。シート毎にB列からI列の1行から50行までに50行ずつ移動させ１ページに収めたいのですがその方法を教えて下さい。 ５０行ずつ切り取り、貼付では時間がかかるのでできれば関数で移動させる方法があれば教えてください。前期高齢者のためマクロはできません。よろしく御願いします
- ベストアンサー
- オフィス系ソフト
- EXCEL データをコピーして別シートの最初の空白行に貼り付けたい
EXCEL データをコピーして別シートの最初の空白行に貼り付けたい Sheet１はA列からR列までを使ったシートで、1行目は各項目があり、2行目からは当月のデータが入力されています。 Sheet２はSheet１の1行目と同じようにA列からR列までが項目になっていて、期中のデータを付け足していきたいと思っています。 マクロの記録でやってみたのですが、前月の最後の行（貼り付ける最初の空白行)の認識の仕方が分からず、Sheet２への貼付がうまくいきません。 どのような方法でやったらいいのか教えて下さい。
- ベストアンサー
- その他MS Office製品
- 【エクセルの行と列が隠れている】
こんにちは。 エクセルの「行１」や「列Ａ」全体が隠れてしまっています。隠れている箇所に文字がかいてあるので、印刷すると文字が現れます。その隠れているところに文字を追加したり、罫線をつけたりしたいです。 右クリックで「再表示」「非表示」という操作ができることは知っています。「ヘッダーフッター」や「ページ設定」の「シート」の「印刷タイトル」には何も入力されていません。 最初の行と列の再表示をする方法を教えていただけないでしょうか。よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- エクセル97の罫線について
EXCEL９７の罫線について教えてください。 マクロで、単純にデータのあるセルに罫線を引きたいと考えています。 ACCESSのデータをEXCELにエクスポートしてからEXCELのシートを開くので、 シートの列（横幅）はどれだけあるかわかりません。ちなみに行のマックス行の取得の仕方はわかっています。 現在、下のようなコードで５枚のシートに罫線を引いているのですが、すべてのシートが一枚目のシートの列行と同じだけ罫線が引かれてしまいます。 ========================================================== Public Sub get_keisen(sheet As String) ←シート名が引数 Set ws1 = Worksheets(sheet) '罫線を引くシート Dim maxRow As Long '最大行 Dim I As Integer Application.ScreenUpdating = False ws1.Activate 'シートの最大行を得る ws1.Activate: maxRow = ws1.Range("A65536").End(xlUp).Row 'シートの横幅を得る I = 1 'デ-タ１行目設定 Do Until Cells(1, I) = "" I = I + 1 Loop '罫線を引く範囲(全体)を選択 ws1.Activate: Range("A1:I" & maxRow).Select ～ 罫線を引く処理文 ～ end sub =========================================================== もっと簡単な方法があればその方法でかまいません。 宜しくお願い致します。
- ベストアンサー
- オフィス系ソフト
- Excel データの一部を別シートにコピー
Excelで、データ行のどこかをクリックし、ボタンを押したとき、その行を別々のシートに分類してコピーさせるマクロを作りたいと思っています。 このとき、コピー先のシートをＡ列のデータで区別したいのです。 １．クリックした行のＡ列のセルを判定し、そのセルのデータを読み取る方法 ２．読み取ったデータ（文字）を、コピー先シート名に指定する方法 このマクロの記述方法を教えてください。よろしくお願いします。 コピー範囲を指定し、貼り付け先のシートをアクティブにできれば、あとは記録マクロをつないで作るつもりです。
- ベストアンサー
- オフィス系ソフト
- EXCELマクロ 印刷範囲A1～Q列の最終行の罫線無視
EXCELマクロで教えてください。 印刷範囲はA1～Q列の最終行です。 罫線は６７行まで引いていますが、印刷時には無視します。 なので、Q列のデータが10行までしかなかったら、 印刷範囲は、A1～Q10 Q列のデータが67行まであったら、 印刷範囲は、A1～Q67 です、よろしく教えてください。
- ベストアンサー
- オフィス系ソフト
- エクセルのＡ列に入力したデータを別シートと連動させる方法
エクセル２０００です。 Ａ列 Ｂ列 Ｃ列 言葉 意味 例文 とシート１に入ってるデータがあります。 ５００行程入っているのですが、Ａ列のデータだけをシート２にコピーして一覧で見られるようなシートを作りたいと思っています。 でもＡ列だけだと縦長でとても見づらいため、Ｂ列以降も使い全て２０行位にしたいのですが、Ａ列だけをコピーしてシート２に貼り付けた時に自動で各列２０行位に収まるような関数やマクロの方法ってありますでしょうか？ また今後もシート１、Ａ列の言葉が増えた時にシート２も関連して増えるようにすることも出来ますでしょうか？ どうか教えて下さい！
- 締切済み
- オフィス系ソフト
- エクセルの罫線について
エクセルを使用してある文字列を読み込んで表を作成し、印刷時に最終行に罫線を入れてます。 毎回この作業がわずらわしいのですが、読み込んだ文字列の最終行に罫線を入れる方法ってあるのでしょうか？
- ベストアンサー
- オフィス系ソフト
お礼
いろいろ試してみましたが自分のシートではうまく動きませんでした。 ありがとうございました。
補足
回答ありがとうございます。 使用してみましたが、だいぶオーバーしてしまいます。 今使用しているシートではA20セルの下以降に罫線（枠線）が引かれていますがだいぶオーバーしてA68まで行を削除されています。 セルの書式設定の罫線を見てみるとどの行も同じように上下に罫線が引かれています。 （A20は下側のみA21以降は上下という感じです）