
VBA
VBASub GetData()Dim ws1 As WorksheetDim ws2 As WorksheetSet ws1 = ThisWorkbook.Worksheets("Sheet1")Set ws2 = ThisWorkbook.Worksheets("Sheet2")Dim lastRow As LonglastRow = ws2.Cells(ws2.Rows.Count, 1).End(xlUp).RowFor i = 1 To lastRowIf ws2(i, 2) Like "关键字" Thenws1(i, 1) = ws2(i, 3)End IfNext iEnd Sub以上代码会从“Sheet2”表中查找所有列名中包含关键字的记录,并将其复制到“Sheet1”表的相应列中。请注意,在使用VBA代码之前,请确保已经正确引用了要处理的两个工作表,并且它们位于同一个工作簿中。除了使用VBA代码外,还可以使用其他的工具来实现相同的功能。例如,在某些情况下,可以使用“数据透视表”来创建汇总或聚合数据。但这种方法需要更多的工作,并且可能比使用VBA代码更复杂。Copyright © 2025 IZhiDa.com All Rights Reserved.
知答 版权所有 粤ICP备2023042255号