Excel：用戶選擇到更大範圍的副本

Question

我想讓用戶選擇一個範圍的子集並使用宏選擇剪切板的更大範圍以複製到不同的工作簿。

用戶輸入： Range("A1:A5") 複製的範圍： Range("A1:DM5")

現在怎麼樣： 用戶輸入： Range("A1:C5") 複製的範圍： Range("A1:DM5")

感謝提前任何建議。 klaus2

Answer 1

Dim rng As Range 
Set rng = Application.Intersect(Selection.EntireRow, Range("A:DM")) 

If Not rng Is Nothing Then 
    rng.Copy 
    'etc etc 
End If 

Answer 2

對不起，我還沒有被周圍幾天。 我想出了一個解決方案，似乎給了我想要的東西。我通過谷歌搜索找到了關鍵。

Dim strSelection As String 
Dim firstRow As Integer 
Dim lastRow As Integer 
Dim firstCell As String 
Dim lastCell As String 

Sub Macro3() 
    strSelection = Selection.Address(ReferenceStyle:=xlA1, _ 
         RowAbsolute:=False, ColumnAbsolute:=False) 
    firstRow = Range(strSelection).Row 
    lastRow = Range(strSelection).Rows.Count + Range(strSelection).Row - 1 
    firstCell = "A" & firstRow 'will always be "A" + firstRow 
    lastCell = "I" & lastRow 'will always predetermined column + lastRow 
    Range(firstCell, lastCell).Select 'selects the range and ready for copying to another workbook 
    MsgBox firstCell 'testing 
    MsgBox lastCell 'testing 

末次