Question

我有一个工作问题，我希望我的宏可以执行以下操作

我有两列（A列和B列）。列A包含名称，列B包含其信息。

我希望我的宏找到重复的名称并复制col A和B并将它们粘贴到以下位置的另一个电子表格中

C：\ Users \ kentan \ Desktop \ Managed Fund

创建的每个电子表格都必须包含该名称的名称作为文件名

我已创建宏来执行以下操作，但它没有给我正确的结果

Sub IRIS()
Dim i As Integer
With ActiveSheet.Sort
.SetRange Range("A:B")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlStroke
.Apply
 End With

i=1

Do Until Len(Cells(i, 1).Value) = 0
If Cells(i, 1).Value = Cells(i + 1, 1).Value Then
Range(Cells(i, 1), Cells(i, 2)).Select
Selection.Copy
Workbooks.Add
Range("A1").PasteSpecial

ActiveWorkbook.SaveAs Filename:= _
"C:\Users\kentan\Desktop\Managed Fund" & cells(i,1) & ".xls"
ActiveWorkbook.Close
Else
    i = i + 1
End If
Loop
Application.CutCopyMode = False
End Sub

Answer 1

考虑到添加多个工作簿的重复操作，我会将操作转移到“帮助”子。

<button id="b1" onclick="genericF('1st button')">1st button</button>
<button id="b2" onclick="genericF('2nd button')">2nd button</button>
<button id="b3" onclick="genericF('3rd button')">3rd button</button>
<p id="result">"Here will be the result!"</p>

使用宏将单元格等同于另一个电子表格时复制粘贴单元格

1 个答案: