वीबीए एक्सेल प्रत्येक एन कॉलम - एक्सेल, वीबीए, एक्सेल-वीबीए, विभाजित एक शीट विभाजित करें

मेरे पास दो "हैडर के साथ एक ट्रांसपोज़्ड टेबल हैकॉलम "। तालिका बहुत लंबे समय तक दाईं ओर खींचती है, और मैं इस तालिका को हर" n "कॉलम में कई शीटों पर विभाजित करने में सक्षम होना चाहता हूं, जबकि दो हेडर कॉलम को हर नई शीट पर कॉपी भी करता हूं। सभी उदाहरण मुझे मिल सकते हैं केवल हर "एन" पंक्तियों को विभाजित करें, जबकि मैं हर "एन" कॉलम को विभाजित करना चाहता हूं।

मुझे यह स्पष्ट करना मुश्किल हैपाठ, इसलिए मैं स्क्रीनशॉट संलग्न कर रहा हूं: इस उदाहरण में, पहली शीट में मूल डेटा होता है और बाद की शीट में मैक्रो का अनुमानित परिणाम होता है, जहां शीट हर दो कॉलम में विभाजित होती है:

उत्तर:

Sub colsplit()
Dim wssrc As Worksheet
Dim wsdest As Worksheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set wssrc = ActiveWorkbook.Sheets("Source")
"getting No of columns
lcol = wssrc.Cells(1, Columns.Count).End(xlToLeft).Column
On Error GoTo resetsettings
"getting User input to split count
col = InputBox("Enter Number of columns to split")
If IsNumeric(col) And col <> "" And col > 0 Then
desti = 1
For i = 3 To lcol
Set wsdest = Sheets.Add(After:=Sheets(Sheets.Count))
wsdest.Name = "split" & desti
"copying header columns to new sheets
wssrc.Columns(1).EntireColumn.Copy Destination:=wsdest.Cells(1, 1)
wssrc.Columns(2).EntireColumn.Copy Destination:=wsdest.Cells(1, 2)
desti = desti + 1
x = 3
For j = i To (i + col - 1)
"Copying other columns to new sheet
wssrc.Columns(j).EntireColumn.Copy Destination:=wsdest.Cells(1, x)
x = x + 1
Next j
i = i + col - 1
Next i
Else
End If
resetsettings:
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

यह कोड कॉलम को विभाजित करेगा और उन्हें नई शीट पर पेस्ट करेगा।

यह मेरे लिए स्पष्ट नहीं है कि आपको क्या चाहिए, एक मैक्रो? एसई इसन "एक कोडिंग सर्व। कृपया इसके लिए freelancer.com या ऐसे ही अन्य स्रोतों की कोशिश करें।

यदि आप एक त्वरित और विरल समाधान चाहते हैं: इस तालिका को मैक्रो के रूप में विभाजित करने के लिए अपने मैनुअल कार्य को रिकॉर्ड करें। तब आप इसे जरूरत पड़ने पर सर्वकाल चला सकते हैं। यदि आप नहीं जानते कि यह मैन्युअल रूप से कैसे किया जाए, तो एक टिप्पणी छोड़ दें, मैं तब समझाऊंगा