用于复杂复制功能的 Excel VBA 宏

Question

我是 VBA 新手，虽然我用其他语言编写过一些代码，所以我了解一些一般概念。我需要为 excel 编写一个宏，该宏将工作簿中的一些数据复制到与新工作簿中连续的单个列不连续的单个列中。困难的部分是我需要用户提示选择正在复制的数据，并且每个选择的大小各不相同。最后，具有单列的新工作簿将保存为制表符分隔的文本文件。这就是我的想法，是一种通用的编码语言。

我会用斜体来区分变量，“引号”来区分值，粗体来区分编码关键词。我假设代码将从新的空工作簿运行。

代码：

%%% 初始化变量。
MoreCells = "1" %%%boolean 是/否稍后提示
SelectedCells = "稍后在提示时选择范围"
SelectedCellsMagnitude = "# of cells in selectedcells"
DestinationStartCell = "A1" %%%cell 复制到

打开工作簿“要从.xlsx 复制的工作簿”

而 morecells = "1"
提示用户选择范围
设置“选定范围”= selectedcells
设置“选定单元格的大小”= 选定单元格的大小
将 selectedcells 复制到从单元格 destinationstartcell 开始的新工作簿
设置 destinationstartcell = destinationstartcell + selectedcellsmagnitude
提示用户“还有要复制的单元格吗？”
如果 "yes" 设置 morecells = "1"
else 设置 morecells = "0"

将新工作簿另存为制表符分隔值文本文件，名为“newworkbookname.txt”，位于目标“\new\workbook\destination”

:结束代码

任何帮助将不胜感激。或者，就此而言，洞察这在 VBA 和 excel 中是否可行。

提前致谢！

Answer 1

将工作簿和工作表值更改为适用的工作簿和工作表

Sub usermove()
Dim c, Rng1 As Range
Dim i As Integer

i = 1

'ask for input
userselect:
ThisWorkbook.Sheets("Sheet1").Activate
Set Rng1 = Application.InputBox("Please Select Cells", Type:=8)

'loop
For Each c In Rng1.Cells

  ThisWorkbook.Sheets("Sheet2").Activate

  Cells(i, 1).Value = c.Value

    i = i + 1
    Next

'Prompt for more input
continue = MsgBox("Are there more cells to select?", vbYesNo)
If continue = vbYes Then GoTo userselect

'then save

    ChDir "path"
    ActiveWorkbook.SaveAs Filename:="path\Book1.txt", FileFormat _
        :=xlText, CreateBackup:=False


End Sub