Question

我正在尝试将主工作簿的列宽放入目标工作簿中。我要做的所有其他工作，例如工作表保护，异常范围等（请注意，我在模块的最后使用了工作表保护）

我已经尝试了几种方法以列为列或整个行或其他范围，但是除了复制列宽之外，它不会做任何事情。

 For col = 1 To col = Input_Obj_WS.Range("A1:XX1").Columns.Count
    With Output_Obj_WS.Columns(col)
        .ColumnWidth = Output_Obj_WS.Columns(col).ColumnWidth
    End With
 Next col

我遇到了各种各样的错误，但是在最初的尝试中，我遇到了“范围类的特殊粘贴失败”

现在我不再遇到错误，但是它什么也没做。

Answer 1

所以经过一番摆弄之后，我开始工作了。我不认为这是最优雅的解决方案，但它现在可以使用。 @Bilal感谢您的帮助

For Col = 1 To Input_Obj_WS.Range("A1:XX1").Columns.Count


    Debug.Print ("In: " & Input_Obj_WS.Columns(Col).ColumnWidth)
    Debug.Print ("Out: " & Output_Obj_WS.Columns(Col).ColumnWidth)

    Colwidth = Input_Obj_WS.Columns(Col).ColumnWidth
    Output_Obj_WS.Columns(Col).ColumnWidth = Colwidth


    Debug.Print ("Out 2: " & Output_Obj_WS.Columns(Col).ColumnWidth)


Next Col

将工作簿x表格i的columnwidth复制到工作簿y表格i

1 个答案: