Excelで列幅をペーストすることはできません

Question

私は初心者ですので、私のコードについて何か質問したいと思います。 VBA EXCELで列の幅をペーストできない理由

ここに私のコードです。ありがとうございました。

Sub merge() 
Dim P As Integer 
On Error Resume Next 

Dim ws As Worksheet 
Set ws = ThisWorkbook.Sheets.Add(After:= _ 
     ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)) 
ws.Name = "RAW" 

Sheets(1).Activate 
ActiveSheet.UsedRange.Select 


Selection.Copy Destination:=Sheets("RAW").Range("A1") 

Sheets("RAW").Range("A1").PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, SkipBlanks:=False, Transpose:=False 



For P = 2 To Sheets.Count - 1 
    Sheets(P).Activate 
    Range("A5").Select 
    Selection.CurrentRegion.Select 
    Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select 
    Selection.Copy Destination:=Sheets("RAW").Range("A1000000").End(xlUp)(2) 

Next 

End Sub 

Answer 1

:)コードでは、すでに「A：Z」にある範囲A1を参照しています。

列B〜Zを列Aと同じ幅にする場合は、次のコードを使用します。

Columns("B:Z").columnwidth = columns("A:A").columnwidth