Excel 如何使用VBA代码获取从sheet02到主工作表的不同表的内容
我需要复制工作表02的“活动”列的内容，并将其粘贴到我在编译过程中选择的其他工作表01单元格中。 此处的行号和列号可能会有所不同，但标题活动将是相同的，并且不会在报告的任何其他表中使用。 应重复此过程，并从其他纸张03、04、05等处复制粘贴。请找到格式Excel 如何使用VBA代码获取从sheet02到主工作表的不同表的内容,excel,vba,Excel,Vba,我需要复制工作表02的“活动”列的内容，并将其粘贴到我在编译过程中选择的其他工作表01单元格中。 此处的行号和列号可能会有所不同，但标题活动将是相同的，并且不会在报告的任何其他表中使用。 应重复此过程，并从其他纸张03、04、05等处复制粘贴。请找到格式 请记录您的操作宏，然后您可能会得到一些想法 我的意思是你可以学习excel宏的工作方式。并根据需要调整代码。更新下面的答案 假设您知道如何插入模块。如果没有，您可以只录制一个宏，编辑宏并将我的代码粘贴到VBE中 支持ctrlor，可选择多个区域
请记录您的操作宏，然后您可能会得到一些想法 我的意思是你可以学习excel宏的工作方式。并根据需要调整代码。更新下面的答案 假设您知道如何插入模块。如果没有，您可以只录制一个宏，编辑宏并将我的代码粘贴到VBE中 支持ctrlor，可选择多个区域，但只能在同一张图纸中选择一次。 支持从最后一个单元格追加数据。 在录制的图片中，我只需按Ctrl+D作为启动宏的快捷方式。 子活动收集 '如果没有活动文本，请提醒填写。xlother表示完全匹配文本。 设置find_cell=Sheet1.Cells.FindActivity，，xlWhole 如果find_cell算不了什么，那么 [sheet1]中缺少MsgBox“活动”标题，请将单元格设置为“活动” 其他的 '通过查找获取'activity'单元格的行和列。 cell\u row=查找\u cell.row cell\u col=find\u cell.Column 变暗数据范围作为范围 暗淡的cel As范围 暗brr 长 作为整数的Dim i '复制您选择的数据 On Error GoTo Err_句柄 设置DataRange=Application.InputBoxSelection，选择要复制的区域，、8 对于数据范围中的每个cel n=n+1 ReDim保留brr1到n brrn=单元值 下一个 '获取包含文本的最后一个单元格 i=Sheet1.CellsRows.Count，cell_col.EndxlUp.Row '在最后一个银行单元格中填写新文本 表1.Cellsi+1，Cellu col.ResizeUBoundbrr=Application.TransposeSebrr 错误句柄： 出口接头 如果结束
结束你尝试过的任何事情？抱歉，我不知道VBA或任何其他编码。我被委托将每月报告`~250汇编成一个主控表，我在寻找快捷方式。找不到。宏不工作，原因是每个报表中表的位置不同。我的意思是您可以了解系统的工作方式并进行一些调整。顺便说一句，活页1第68行和第75行中有两个活动，因此您希望将所选单元格放置在其他工作表的何处列和行会有所不同，两个活动，您如何定位第二个活动？您确定要将其放入第二个活动单元格中吗？对于其他工作表，您的意思是复制您选择的范围并将其粘贴到活动单元格？将第68行的活动更改为NSS/Farm Works我不知道在哪里上载您的文件，因此您可以检查上面的代码。我认为它工作得很好。再加上一条评论，你必须只保留一个“活动”。万分感谢，正在努力。上帝保佑，这能作为答案吗？我认为这对其他人会有帮助。只需修改代码中的活动以满足其他关键字。是否可以从指定的工作表中自动复制活动的内容并粘贴到选定的位置。请帮我做这个。你是说，把活动的内容复制到你选择的单元格中？使用ctrl+c和ctrl+v很容易。是否真的需要使用VBA代码？复制一两个报告很容易，但复制250个报告需要两天以上的时间。