Tag: 拷贝
如何复制唯一的更改值并粘贴到另一个工作表VBA中
我对VBA相当陌生，正试图查看是否可以为某个进程创build代码。 我有一个电子表格，在第一行（公司A，公司B等）有一些唯一的标识符和公司名称。 在下面的列中，还有其他一些列，如位置，关键联系人等，对应于每个公司。 最后，有一个“评论”栏。 这些评论得到定期更新。 我想要做的是创build一个macros，这将允许我find独特公司的评论，复制（或剪切）它，并将其粘贴到同一工作簿中的“历史评论”表中，以便我可以维护logging过去的评论。 有没有办法创build一个macros来做到这一点？ 我创build了一些东西，如果我把确切的单元名称，它将复制该评论和粘贴，但我想看看我是否可以指定一个单元格，我可以input公司名称，macros观将然后复制相应的注释，粘贴到底层，然后清除单元格，以便input新的注释。 我不知道这是否是远程可能的，但任何帮助将不胜感激！ Sub Range_copy() Dim cellwant As Variant Dim cellhistory As Variant Dim LRow As Variant Dim Account As Variant Worksheets("AAG").Select Worksheets("AAG").Range("I3").Select cellwant = Selection.Value FindString = Sheets("AAG").Range("B5:B65").Value cellwant = Selection.Value Worksheets("AAG").Range(cellwant).copy Worksheets("Sheet2").Activate Worksheets("Sheet2").Range("A1").Select
Excelmacros：设置工作簿位置的variables？
我需要编写一个macros脚本，将从一个xml工作簿中复制数据，并将值粘贴到另一个工作簿。 我已经写了下面的macros，工作正常，但我需要每周运行这个几个不同的文件，所以这意味着我必须replace每个运行的文档名称。 这是我到目前为止： Sub copying() ''''''Section 1'''''' Workbooks("Results_2561").Activate 'workbook i'm copying from Range("B27:B41").Select Selection.Copy Workbooks("Overall_Results").Activate 'workbook i'm pasting to Range("G2").PasteSpecial ''''''Section 2'''''' Workbooks("Results_2561").Activate Range("C27:C41").Select Selection.Copy Workbooks("Overall_Results").Activate Range("C2").PasteSpecial ''''''Section 3'''''' Workbooks("Results_2561").Activate Range("I28:I40").Select Selection.Copy Workbooks("Overall_Results").Activate Range("G17").PasteSpecial ''''''Section 4'''''' Workbooks("Results_2561").Activate Range("J28:J40").Select Selection.Copy Workbooks("Overall_Results").Activate Range("C17").PasteSpecial End Sub …这只是脚本的一半。 有没有办法，我可以在开始声明一个variables，并将其设置为工作簿文件path，所以我可以打电话，而不是键入和重新键入它一遍又一遍？ 最好不要使用类似的东西 Dim book1 as Workbook Set book1 = Workbooks.Open("C://Results_2561.xlsm") ..当我运行脚本时，这不断打开和closures文档。 […]
