使用Excel VBA復制粘貼下拉數據

Question

我想在Excel電子表格中使用VBA代碼將數據從一列復制到另一列。 我既有復選框，也有下拉列表。 我已經解決了如何使用以下代碼通過復制包含TRUE和FALSE數據的相鄰單元格來復制已選中的復選框：

Range("B1:B9").Copy Range("D1:D9")

但是，下拉列表中的數據不會被復制。我需要在代碼中添加什么才能復制和粘貼此信息？

Answer 1

如果您的下拉列表是在Range（“ A1”）中創建的，並且數據驗證單元格是在B1：B9定義的，那么您需要將數據驗證定義從Source =$B$1:$B$9更改為=B1:B9 。 如果然后將下拉列表和數據從“ A1：B9”復制到“ C1：D9”，則下拉列表本身以及數據定義將被復制。

Range("A1:B9").Copy Range("D1")

將單元格D1到D9更改為不同的值后，您將認識到新的保管箱現​​在引用了range（“ D1：D9”）。

For iCt = 1 to 9 : Range("D1").Offset(iCt,0).Value = iCt + 10 : next iCt

;-)

Answer 2

我添加了以下內容以復制並粘貼下拉列表：

Range("B10:B15").Select
    Selection.Copy
    Range("D10:D15").Select
    ActiveSheet.Paste

感謝那些回答了我的問題並幫助我獲得成功的答案的人。