定義單元格內容的範圍選擇

Question

我想根據單元格中包含的值來定義和複製一系列單元格。

如果電池W2包含條目「B6：B12」，那麼代碼將選擇範圍和內容複製到X列

Sub RangeSel() 
Dim rng As Range 
Dim Sel As String 

Sel = Range("W2").Value 
Set rng = Range("Sel").Copy(Range(Range("X2"), Range("X2").End(xlDown))) 


End Sub 

Answer 1

你的描述有點神祕。像那樣的東西？

Sub RangeSel() 
Dim rng As Range 
Dim Sel As String 

    Sel = Range("W2").Value 
    Set rng = Range(Sel) 
    rng.Copy 
    Range(Range("X2"), Range("X2").End(xlDown)).PasteSpecial xlPasteAll 

End Sub 

Answer 2

這是你在找什麼？

Sub RangeSel() 
    Dim rng As Range 
    Dim Sel As String 

    Sel = Range("W2").Value 
    Set rng = Range(Sel) 

    rng.Copy 

    Range("X2").PasteSpecial 

End Sub 

你試圖設置一個範圍，並在同一時間進行復制，不工作

Answer 3

如果你想複製粘貼>>（不使用PasteSpecial），那麼你可以用1線做的代碼，見下文：

Sub RangeSel() 

Dim rng As Range 
Dim Sel As String 

Sel = Range("W2").Value 
Set rng = Range(Sel) 

' optional : make sure there is a valid range 
If Not rng Is Nothing Then 
    rng.Copy Destination:=Range("X2") ' copy>>paste in 1 line, paste at column X second row 
End If 

End Sub