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

:)在您的代码中，您引用的范围A1已经在＆＃34; A：Z＆＃34;。

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

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

粘贴列宽度不适用于Excel

1 个答案: