Question

我希望根据Excel中下拉列表中的选择将值复制/粘贴到另一个工作表。当我从下拉列表中选择时，工作表中的其他单元格将被填充。我想将这些填充值复制/粘贴到同一工作簿中的另一个工作表。我希望在选择更改时复制/粘贴的值保持不变。

寻找可应用于许多细胞的公式。我尝试了一个IF公式，但是当从下拉列表中更改选择时，值会更改。

Answer 1

我能够在另一个线程上找到此代码。我修改为使用我的工作表。我需要弄清楚如何为打印到OutSheet的数据添加标题。

Sub SpitValues()
 Dim dvCell As Range
 Dim inputRange As Range
 Dim c As Range
 Dim i As Long

'Cell that contains data validation list
'Cell where Dropdown list is
Set dvCell = Worksheets("InSheet").Range("C3")

'Determine where validation comes from
Set inputRange = Evaluate(dvCell.Validation.Formula1)

i = 1

'Begin loop
 Application.ScreenUpdating = False
 For Each c In inputRange
   dvCell = c.Value

   Worksheets("OutSheet").Cells(i, "A").Value = Worksheets("InSheet").Range("B10").Value
   Worksheets("OutSheet").Cells(i, "B").Value = Worksheets("InSheet").Range("G10").Value
   Worksheets("OutSheet").Cells(i, "C").Value = Worksheets("InSheet").Range("H10").Value

 i = i + 1

Next c
Application.ScreenUpdating = True

End Sub

根据下拉列表中的选择将数据复制到另一个工作表

1 个答案: