點選複製

myleoyes

各位前輩你們好!
         前輩!問題如附檔說明
         請知道的前輩,不吝賜教謝謝再三!!

myleoyes

回復 2# GBKEE
GBKEE良師你好!
　　　良師!謝謝!程式只能單選
             可否以修改有複選功能呢?  
          如附檔Leov34-2請再辛苦囉,謝謝再三!!

myleoyes

回復 4# Hsieh
hsieh前輩你好!
       偶像前輩!謝謝!!程式複選沒問題
       但是單選時,偵錯在此 A.AutoFill A.Resize(R, 1)
       請再麻煩一下謝謝再三!!

myleoyes

回復 5# GBKEE
GBKEE前輩你好!
     　 良師!謝謝!!程式good謝謝再三!!

兩位前輩你們好!　　
      Sub 複製()
          Dim Ar As Range, A As Range
          Set Ar = Sheet1.[B1:C9]
          Set A = Sheet1.[IV1].End(xlToLeft).Offset(, 1)
          Ar.Copy
          A.Offset(0, 0).PasteSpecial xlPasteFormats
          A.Offset(0, 0).Resize(9, 2) = Ar.Value
          Application.CutCopyMode = False
       End Sub
       複製出來的儲存格都是值
       以實際需求有出入雖經修改還是看不下去哈哈!!
       只好再麻煩前輩囉!實在歹勢辛苦囉!謝謝再三!!

myleoyes

回復 9# GBKEE
hsieh前輩你好!
       偶像前輩!辛苦囉!謝謝再三!

GBKEE前輩你好!
　　　良師!辛苦囉!謝謝再三!

myleoyes

回復 10# myleoyes
各位前輩你們好!
         前輩!點選複製之2如附檔說明
         請知道的前輩,不吝賜教謝謝再三!!

myleoyes

回復 12# GBKEE
GBKEE前輩你好!
　　　良師!辛苦囉!謝謝再三!