将指定的数据写入到另一个文件

zz1008080

原数据是一行数据，添加“]”符号将数据整合写入到另一个文件的A列已有数据的下一行。

每层写入数据都在有数据的下一行添加上去。

zz1008080

朱荣兴 发表于 2019-11-18 15:44
Sub test()
For j = 1 To 12
    If M = "" Then

如果源数据产生的数据不止一行，多行数据写入到另一个文件，代码要怎么修改呢？

zz1008080

朱荣兴 发表于 2019-11-18 16:24
呵呵，楼主究竟想要什么？？？

一次次写入闪屏的有点厉害。打开写入的工作簿关闭工作簿会闪屏。想在源数据工作簿整理一下数据，变成多行数据一次写入。

zz1008080

Sub 按钮1_Click()
For k = 2 To Range("A65536").End(3).Row
  For j = 1 To Cells(k, Columns.Count).End(xlToLeft).Column
    If M = "" Then
        M = Cells(k, j)
    Else
        M = M & "]" & Cells(k, j)
      
    End If
Next j
f = Dir(ThisWorkbook.Path & "\写入A列最后数据的下一行.xlsx")
Set wb = Workbooks.Open(ThisWorkbook.Path & "\" & f)
With wb.Worksheets(1)
    RS = .Cells(Rows.Count, 1).End(xlUp).Row + k - 2
    .Cells(RS, 1) = M
End With
MsgBox (M)
M = ""
Next k
wb.Close True
End Sub