Sub 結合()
Dim i As Integer
Application.DisplayAlerts = False
For i = 1 To 14
Range("D" & i & ":F" & i).Merge
Range("D" & i).HorizontalAlignment = xlCenter
Next
End Sub
Register as a new user and use Qiita more conveniently
- You get articles that match your needs
- You can efficiently read back useful information
- You can use dark theme