我想将工作簿1中的B列复制到工作簿中的C列，代码怎么写？

希望123456

我想将工作簿1中的B列复制到工作簿中的C列，代码怎么写？

希望123456

我想将工作簿1中的B列复制到工作簿2中的C列，代码怎么写？

wfywc81

希望123456 发表于 2023-5-14 16:27
我想将工作簿1中的B列复制到工作簿2中的C列，代码怎么写？

如果你是在Excel VBA中进行操作，以下是一种可能的方法：

vba
Copy code
Sub CopyColumn()

    Dim wb1 As Workbook
    Dim wb2 As Workbook
    Dim ws1 As Worksheet
    Dim ws2 As Worksheet

    '设置工作簿和工作表
    Set wb1 = Workbooks("工作簿1")
    Set ws1 = wb1.Sheets("Sheet1") '假设你要复制的是Sheet1
    Set wb2 = Workbooks("工作簿2")
    Set ws2 = wb2.Sheets("Sheet1") '假设你要粘贴到的是Sheet1

    '复制列
    ws1.Columns("B").Copy Destination:=ws2.Columns("C")

End Sub


你需要替换"工作簿1"和"工作簿2"为你实际的工作簿名称，替换"Sheet1"为你实际的工作表名称。

在运行这段代码之前，确保工作簿1和工作簿2都已打开，并且工作簿2的C列没有重要数据，因为此操作会覆盖C列的所有数据。

此外，这段代码假设你正在使用的是Excel VBA，并且你的Excel已经配置为允许运行宏。如果你不确定如何设置这些，你可能需要查阅一下Excel VBA的使用说明。

高个子

录制宏就可以了

吴中泉

工作簿1.[B:B].copy 工作簿2.[c1]