09/02/25 08:27:14
>>14
1 With Worksheets("OutPut")
2 For N = 1 To LastRaw 'LastRaw は最終行
3 If .Cells(N, 12) = .Cells(N + 1, 12) Then
4 .Cells(N, 12).Borders(xlEdgeBottom).LineStyle = xlNone
5 ElseIf .Cells(N, 12) <> .Sells(N - 1, 12) Then
6 .Rows("N:N").RowHeight = 80
7 End If
8 Next
9 End With
1行目 全体をWithで囲めば、いちいちワークシートを指定しなくてもよくなる
3行目 Valueは省略可能。ただしこれは初心者にはおすすめしない
4行目 罫線の消し方はマクロの記録で調べる
5行目 この時点で下とは違うことが判明してるから上だけ調べればいい
6行目 いちいちSelectしない。ワークシートの指定が抜けてる
あと、行番号(左端の数字)は消さなくても丸ごとコピペで動くよ