| |
▼ひなこもち さん：
>Sub Delete_6()
>
>Dim s As Worksheet
>For Each s In ActiveWorkbook.Worksheets
> n = 1
> If s.Cells(n, 1) = "" Then
> Rows("n : n").Select ★
> Selection.Delete Shift:=xlUp
> n = n + 1
> End If
>
>
>Next
> End Sub
まず、上記コードについて、
> Rows("n : n").Select ★
は、「ｎ：ｎ」という文字になってしまいます。
おそらく、お望みは、
Rows(n & ":" & n).Select
でしょう。
次に
Dim mrg As Range
On Error Resume Next
Set mrg = Range("G3:G30").SpecialCells(xlCellTypeBlanks)
If mrg Is Nothing Then Exit Sub
On Error GoTo 0
mrg.Delete 'Shift:=xlUp
Set mrg = Nothing
について、望みの動作は、G3:G30の中の空白セルを削除ですか？
それとも、複数シートでA,B列それぞれ空白（文字列の入ってない）セルを削除したいですか？
下記のようにして、一行ずつ実行してください。削除前に削除される範囲を、Excelで確認できます。望みの範囲ですか？
mrg.Select
mrg.Delete 'Shift:=xlUp
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
