
excel
VBASub InsertFromOtherTable()''InsertFromOtherTable Macro'Dim ws As WorksheetDim rng As RangeDim i As LongSet ws = ActiveSheetSet rng = ws.Range("A1")For i = 1 To Range("B1:B10").CountIf Range("B1:B10")(i).Value "" Thenrng.ListItems.Add 1, rng.ListCount, Range("B1:B10")(i).ValueEnd IfNext iEnd Sub在运行以上代码前,请确保已经打开了两个表格,并且表格之间存在关联(例如通过一个公共字段进行关联)。然后,将上述代码复制到VBA编辑器中,并在其中修改输入参数和变量名称以适应您自己的情况。通过该方法,您可以方便地向下拉列表中添加其他表格中的选项,并提高您的数据筛选功能。Copyright © 2025 IZhiDa.com All Rights Reserved.
知答 版权所有 粤ICP备2023042255号