2012-01-13 13 views
9

मैं कुछ बहुत आसान कोशिश कर रहा हूं, लेकिन मुझे अटक गया लगता है। मैं PasteSpecial के लिए सहायता मेनू का पालन कर रहा हूं लेकिन मुझे लगता है कि त्रुटि के बिना मेरा कोड काम करने के लिए प्रतीत नहीं होता है।एक्सेल वीबीए - रेंज। कॉपी पेस्ट

मैं Worksheets("Sheet1").Range("A1","A5") लेना चाहता हूं और Worksheets("Sheet2").Range("A1","E1") पर स्थानांतरित करना चाहता हूं।

यह पूरा करने के लिए सबसे आसान तरीका क्या है?

+1

मैं आपको यह सलाह देना चाहूंगा कि [क्लिपबोर्ड का दुरुपयोग करने के बजाए ट्रांसपोज़ वर्कशीट विधि का उपयोग करें] (http://stackoverflow.com/a/13176360/429091)। – binki

उत्तर

30
Worksheets("Sheet1").Range("A1:A5").Copy 
Worksheets("Sheet2").Range("A1").PasteSpecial Transpose:=True 
+0

धन्यवाद, मैं एक नई लाइन पर pastspecial कमांड नहीं डाल रहा था। – user1130306

+0

मुझे ट्रांसपोज़ को कोशिकाओं के एक अलग सेट में पेस्ट करना पड़ा। इसलिए, यदि ए 1: बी 5 से कॉपी किया गया है, तो उसे ए 6 तक ले जाना पड़ा –

संबंधित मुद्दे