變數儲存格複製

iwiniwin

我今天隨便點一個儲存格  假設是  E10  
讓他複製RNAGE(D1:E10)   貼到A1上

可是我數值可能是到E10 E11 or..........................不一定  我是抓最後一個儲存格抓到後去點他
有辦法 變數複製貼到A1上嗎?

然後  D1 E1
              1
              2
              3
              4
              5
              6
              7
              8
              9
             10



------------------抓取最後一個存儲格函數
     Dim c As Range
     With Range("E1:E9999")
         Set c = .Find(What:="2", LookIn:=xlValues, LookAt:=xlWhole, _
            SearchOrder:=xlByRows, SearchDirection:=xlPrevious)
         If Not c Is Nothing Then c.Select
         
     End With








55.rar (6.57 KB, 下载次数: 6)

2015-5-11 11:26 上传

点击文件名下载附件

mineshine

不知道是不是你要的?
僅供參考

1. 
   
2. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
3. If Target.Column <> 5 Then Exit Sub
   
4. Range("A:B").Clear
   
5. Range("D1:" & Target.Address).Copy Range("A1")
   
6. End Sub
   
7. 
   

复制代码

iwiniwin

目我的概念如下假設 1483 這個是變數是我的C抓到值  
是可以變化的  假設 我直接選取1483 沒有問題
但是要如何結合 下面程式  把我抓到的列號1483放到 Range 裡面  是我主要的問題  

Range(Cells(1, 4), Cells(1483, 5)).Select

---------------------------------------------------
  Dim c As Range
     With Range("E1:E9999")
         Set c = .Find(What:="2", LookIn:=xlValues, LookAt:=xlWhole, _
            SearchOrder:=xlByRows, SearchDirection:=xlPrevious)
         If Not c Is Nothing Then c.Select
     
   
     
     
     End With
      






   


   
   

mineshine

iwiniwin 发表于 2015-5-11 15:00
目我的概念如下假設 1483 這個是變數是我的C抓到值  
是可以變化的  假設 我直接選取1483 沒有問題
但是 ...

Range(Cells(1, 4), Cells(1483, 5)).Select

改
Range(Cells(1,4),Cells(ActiveCell.Row,5)).Select

iwiniwin

3Q 感謝回答