Question

我有两个代码：

1）从列中获取每个值并生成值为https://superuser.com/questions/387192/excel-create-text-file-named-after-a-cell-containing-other-cell-data的* .txt文件

Sub CreateTxt()
'
For Each ce In Range("A1:A" & Cells(Rows.Count, 1).End(xlDown).Row)
    Open ce & ".txt" For Output As #1
    Write #1, ce.Offset(0, 1) & " " & ce.Offset(0, 2)
Close #1
Next ce
End Sub

2）查找最后一个非空行

Sub LastRowInOneColumn()

Dim LastRow As Long
With ActiveSheet
    LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
End With
MsgBox LastRow
End Sub

我的问题 - 如何将 LastRow 从 2）代码实施到 1）代码？谢谢你的帮助！

Answer 1

您可以使用Call过程：在代码中放置Call LastRowOneColumn，当到达该行代码时，它将跳转到该过程。

另一种方法是将LastRowOneColumn（）中的代码复制并粘贴到CreateTxt（）中。

VBA合并两个代码

1 个答案: