बार बार पक्षांतरित समारोह का उपयोग करने के लिए एक मैक्रो लेखन

वोट
0

मैं Excel में एक स्तंभ में मानों की चाल पंक्तियों कोशिश कर रहा हूँ। पक्षांतरित समारोह में अच्छी तरह से काम करता है, लेकिन केवल एक बार में एक पंक्ति में चले जाएंगे। मैं एक ऐसा मैक्रो एक स्तंभ में तीन कॉलम में डेटा के 173 पंक्तियों में परिवर्तित कर देंगे प्राप्त करना चाहते हैं। कृपया उदाहरण नीचे देखें। किसी भी सहायता के लिए अग्रिम रूप से धन्यवाद।

पंक्तियाँ:

98,058 98,058 98,314
82,362 82,684 83,326
93,410 93,479 93,761

कॉलम:

98,058
98,058
98,314
82,362
82,684
83,326
93,410
93,479
93,761
12/03/2009 को 16:23
का स्रोत उपयोगकर्ता
अन्य भाषाओं में...                            


1 जवाब

वोट
1

निम्नलिखित एक सरणी में ए 1 की CurrentRegion से डेटा लोड और एक कॉलम में पेस्ट, ए 5 में शुरू होगा।

मैं यह सोचते हैं रहा हूँ डेटा संख्यात्मक, सटा हुआ है और यह है कि बजाय एक अभ्यास भिन्न आकार के डेटा सेट पर दोहराया जाना हो सकता है की तुलना में एक बंद है। अपने डेटा को सन्निहित नहीं, या नहीं रिक्त कक्षों से बंधे है, तो आप मुश्किल रेंज बजाय कोड कर सकते हैं।

Private Sub transposeRows()
Dim inputRange As Variant
Dim myArray() As Long
Dim x As Long
Dim testCell As Range

'Get the range of data to copy'
Set inputRange = Range("A1").CurrentRegion

'Resize array to fit'
ReDim myArray(inputRange.Count - 1)

'Fill up array with data'
For Each testCell In inputRange
    myArray(x) = testCell
    x = x + 1
Next testCell

'Fill destination range'
Range("A5:A" & UBound(myArray) + 5) = WorksheetFunction.Transpose(myArray)

End Sub
12/03/2009 को 17:42
का स्रोत उपयोगकर्ता

Cookies help us deliver our services. By using our services, you agree to our use of cookies. Learn more