エクセルマクロで結合されたセルに格子線を引く方法を教えていただけますでしょうか?
例えば
A11.B11.C11. D11.E11.F11→項目名
A12とA13→セル結合有り
B12とB13→セル結合無し、B列セル結合無し
C12とC13→セル結合有り
D12とD13→セル結合有り
E13、E15→1行ずつ置き斜線、E列セル結合無し
F12とF13→セル結合無し、F列セル結合無し
最終行のAセルからEセルまでセル結合有り
最終行のFセルは F列12からの集計になる
データ量による最終行が変わります。
こういう結合セルがある場合の格子線の引き方を教えていただけますか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルで、 A1セルに「A」という値、 B1セルに「B」という値が入っています。 どちらも表示形式 5 2023/02/22 23:05
- Excel(エクセル) Excelについて A1からA12まで、1月〜12月と入力し、 B1からB12の範囲に、C1とD1に 4 2022/05/26 22:48
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2023/02/26 13:19
- Excel(エクセル) エクセルの関数式を教えてください。 2 2022/11/29 21:09
- Excel(エクセル) WORKDAY関数 4 2023/06/08 13:23
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2022/12/26 14:27
- Excel(エクセル) EXCEL関数(数式)を教えてください 2 2022/06/08 18:32
- Excel(エクセル) 結合セルのソートについて 5 2022/04/22 11:57
- Excel(エクセル) Excel2007での条件付き書式について 6 2023/05/02 10:56
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 3 2023/02/28 01:13
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルのマクロについて教え...
-
特定のセルが空白だったら、そ...
-
Excelで指定した日付から過去の...
-
連続する複数のセル値がすべて0...
-
【Excel VBA】指定行以降をクリ...
-
i=cells(Rows.Count, 1)とi=cel...
-
VBAでセルをクリックする回...
-
セルの結果でマクロ実行
-
特定の文字を条件に行挿入とそ...
-
ExcelVBAを使って、値...
-
【Excel】指定したセルの名前で...
-
VBA初心者です。結合セルを保持...
-
”戻り値”が変化したときに、マ...
-
DataGridViewの各セル幅を自由...
-
HTMLでVLOOKUP関数のようなこと...
-
任意フォルダから画像をすべて...
-
【VBA】指定したセルと同じ値で...
-
結合したセルの高さを内容に合...
-
TODAY()で設定したセルの日付...
-
[Excel VB]プルダウンで文字選...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ExcelVBAを使って、値...
-
特定のセルが空白だったら、そ...
-
i=cells(Rows.Count, 1)とi=cel...
-
【Excel VBA】指定行以降をクリ...
-
Excelで指定した日付から過去の...
-
【Excel】指定したセルの名前で...
-
TODAY()で設定したセルの日付...
-
EXCELで変数をペーストしたい
-
Excel VBA、 別ブックの最終行...
-
Excelのプルダウンで2列分の情...
-
VBA コピーして次の値まで貼り...
-
screenupdatingが機能しなくて...
-
エクセルVBAでコピーして順...
-
VBA初心者です。結合セルを保持...
-
セル色なしの行一括削除
-
VBAでセルをクリックする回...
-
Excel vbaで特定の文字以外が入...
-
DataGridViewの各セル幅を自由...
-
特定の文字を条件に行挿入とそ...
-
【VBA】指定したセルと同じ値で...
おすすめ情報
めぐみん様
よろしくお願いします。
補足本文は数回に分けて送りいたします。
Sheets("データ").Select
MaxRow = Range("E13").End(xlDown).Row + 1
With Range("E13:E" & MaxRow) On Error Resume Next
.SpecialCells(xlCellTypeBlanks).Borders(xlDiagonalUp).Weight = xlThin
End With
.SpecialCells(xlCellTypeBlanks).Borders(xlDiagonalUp).Weight = xlThin
End With
Sheets("データ").Select
MaxRow = Range("A11").End(xlDown).Row
With Range("A11:A" & MaxRow)
.Borders(xlInsideVertical).LineStyle = xlContinuous
.Borders(xlInsideHorizontal).LineStyle = xlContinuous
.Borders(xlEdgeTop).LineStyle = xlContinuous
.Borders(xlEdgeLeft).LineStyle = xlContinuous
.Borders(xlEdgeBottom).LineStyle = xlContinuous
.Borders(xlEdgeRight).LineStyle = xlContinuous
End With