मेरे पास डेटा का एक कॉलम है, चलो इसे कॉल ए कहते हैं,डेटा की 35 पंक्तियों के साथ। इस स्तंभ पर एक लूप कैसे होता है और फिर लूप के प्रत्येक चक्र के लिए कॉलम और पंक्ति दोनों को बढ़ाते हुए प्रत्येक डेटा बिंदु को दूसरी शीट में पेस्ट करें। दूसरे शब्दों में, मैं दूसरी शीट में तिरछे चिपकाने की कोशिश करता हूं। क्या VBA में इस तरह की कार्रवाई करने का एक सरल तरीका है?
उत्तर:
उत्तर № 1 के लिए 4डॉन "लूप, सरणी हेरफेर के साथ कुछ मजेदार है
Sub ColumnToDiagonal()
With Sheet2.Cells.Resize(35, 35)
.Formula = "=IF(Row()<>Column(), """", sheet1!$A1)"
.Value = .Value
End With
End Sub
जवाब के लिए 2 № 2
A.S.H पर जीभ-इन-गाल के साथ खुदाई;)
"जटिल मत बनो, एक पाश करो:
Sub ColumnToDiagonal()
Dim r As Long
For r = 1 To 35
Worksheets("Sheet2").Cells(r, r).Value = Worksheets("Sheet1").Cells(r, "A").Value
Next
End Sub