Vba 粘贴列宽赢得'；我不能在Excel上工作

我是初学者，我想问一些关于我的代码的问题。为什么粘贴列宽在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

：）在代码中，您引用的是A1范围，该范围已在“a:Z”中

如果要使B列到Z列的宽度等于A列的宽度，请使用以下代码

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