ٹپ: دوسری زبانیں Google-Translated ہیں. آپ ملاحظہ کر سکتے ہیں English اس لنک کا ورژن.
لاگ ان کریں
x
or
x
x
رجسٹر
x

or

ایکسل میں کالم کی بنیاد پر ایک سے زیادہ ورکشاپوں میں ڈیٹا کیسے تقسیم کرنا؟

آپ کو ڈیٹا بیس کی بڑی قطاروں کے ساتھ ایک ورکشاپ ہے، اور اب، آپ کو ڈیٹا بیس کی بنیاد پر ایک سے زیادہ ورکشاپوں میں تقسیم کرنے کی ضرورت ہے نام کالم (مندرجہ ذیل اسکرین شاٹ دیکھیں)، اور نام بے ترتیب طور پر درج کیے جاتے ہیں. شاید آپ ان کو پہلے ہی ترتیب دے سکتے ہیں، اور پھر ان کو ایک دوسرے کی طرف سے ایک دوسرے کے نئے ورکسیٹ میں چسپاں کر سکتے ہیں. لیکن اس بار بار کاپی اور چسپاں کرنے کے لئے آپ کے صبر کی ضرورت ہوگی. آج، میں اس کام کو حل کرنے کے لئے کچھ فوری چالوں کے بارے میں بات کروں گا.

کالمز 1 کی طرف سے ڈس تقسیم ڈیٹا

VBA کوڈ کے ساتھ کالم پر مبنی متعدد ورکشاپوں میں تقسیم ڈیٹا

ایکسل کے لئے کوبل کے ساتھ کالم پر مبنی ایک سے زیادہ ورکسیٹس میں تقسیم ڈیٹا


ورکمیٹ میں مخصوص کالم یا قطار کی بنیاد پر متعدد ورکشاپوں میں تقسیم ڈیٹا:

اگر آپ مخصوص کالم کے اعداد و شمار یا قطار کی گنتی پر مبنی ایک سے زیادہ شیٹس میں ایک بڑے ورکیٹٹ کو تقسیم کرنا چاہتے ہیں تو ایکسل کے لئے Kutools's سپلٹ ڈیٹا خصوصیت آپ کو تیزی سے اور آسانی سے اس کام کو حل کرنے میں مدد مل سکتی ہے.

کالمز 6 کی طرف سے ڈس تقسیم ڈیٹا

ایکسل کے لئے Kutools: 200 آسان ایکسل اضافی سے زیادہ کے ساتھ، 60 دنوں میں کوئی حد کے ساتھ کوشش کرنے کے لئے آزاد. ڈاؤن لوڈ اور مفت آزمائشی اب!


VBA کوڈ کے ساتھ کالم پر مبنی متعدد ورکشاپوں میں تقسیم ڈیٹا


اگر آپ تیزی سے اور خود کار طریقے سے کالم قیمت پر مبنی ڈیٹا کو تقسیم کرنا چاہتے ہیں، تو مندرجہ ذیل VBA کوڈ اچھی پسند ہے. برائے مہربانی ایسا کریں:

1. نیچے رکھو ALT + F11 کلیدوں کو کھولنے کے لئے مائیکروسافٹ بصری بنیادی کے لئے درخواستیں کھڑکی.

2. کلک کریں داخل > ماڈیول، اور ماڈیول ونڈو میں مندرجہ ذیل کوڈ پیسٹ کریں.

Sub Splitdatabycol()
Dim lr As Long
Dim ws As Worksheet
Dim vcol, i As Integer
Dim icol As Long
Dim myarr As Variant
Dim title As String
Dim titlerow As Integer
Dim xTRg As Range
Dim xVRg As Range
Dim xWSTRg As Worksheet
On Error Resume Next
Set xTRg = Application.InputBox("Please select the header rows:", "Kutools for Excel", "", Type:=8)
If TypeName(xTRg) = "Nothing" Then Exit Sub
Set xVRg = Application.InputBox("Please select the column you want to split data based on:", "Kutools for Excel", "", Type:=8)
If TypeName(xVRg) = "Nothing" Then Exit Sub
vcol = xVRg.Column
Set ws = xTRg.Worksheet
lr = ws.Cells(ws.Rows.Count, vcol).End(xlUp).Row
title = xTRg.AddressLocal
titlerow = xTRg.Cells(1).Row
icol = ws.Columns.Count
ws.Cells(1, icol) = "Unique"
Application.DisplayAlerts = False
If Not Evaluate("=ISREF('xTRgWs_Sheet!A1')") Then
Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = "xTRgWs_Sheet"
Else
Sheets("xTRgWs_Sheet").Delete
Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = "xTRgWs_Sheet"
End If
Set xWSTRg = Sheets("xTRgWs_Sheet")
xTRg.Copy
xWSTRg.Paste Destination:=xWSTRg.Range("A1")
ws.Activate
For i = (titlerow + xTRg.Rows.Count) To lr
On Error Resume Next
If ws.Cells(i, vcol) <> "" And Application.WorksheetFunction.Match(ws.Cells(i, vcol), ws.Columns(icol), 0) = 0 Then
ws.Cells(ws.Rows.Count, icol).End(xlUp).Offset(1) = ws.Cells(i, vcol)
End If
Next
myarr = Application.WorksheetFunction.Transpose(ws.Columns(icol).SpecialCells(xlCellTypeConstants))
ws.Columns(icol).Clear
For i = 2 To UBound(myarr)
ws.Range(title).AutoFilter field:=vcol, Criteria1:=myarr(i) & ""
If Not Evaluate("=ISREF('" & myarr(i) & "'!A1)") Then
Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = myarr(i) & ""
Else
Sheets(myarr(i) & "").Move after:=Worksheets(Worksheets.Count)
End If
xWSTRg.Range(title).Copy
Sheets(myarr(i) & "").Paste Destination:=Sheets(myarr(i) & "").Range("A1")
ws.Range("A" & (titlerow + xTRg.Rows.Count) & ":A" & lr).EntireRow.Copy Sheets(myarr(i) & "").Range("A" & (titlerow + xTRg.Rows.Count))
Sheets(myarr(i) & "").Columns.AutoFit
Next
xWSTRg.Delete
ws.AutoFilterMode = False
ws.Activate
Application.DisplayAlerts = True
End Sub

3. پھر، دبائیں F5 اس کوڈ کو چلانے کے لئے کلید، اور ہیڈر قطار کو منتخب کرنے کے لۓ ایک فوری باکس کھول دیا گیا ہے، اسکرین شاٹ دیکھیں:

کالمز 7 کی طرف سے ڈس تقسیم ڈیٹا

4. اور پھر کلک کریں OK بٹن، اور دوسرا فوری باکس میں، براہ کرم اس کالم کے اعداد و شمار کو منتخب کریں جو آپ کی بنیاد پر تقسیم کرنا چاہتے ہیں، اسکرین شاٹ دیکھیں:

کالمز 8 کی طرف سے ڈس تقسیم ڈیٹا

5. پھر کلک کریں OK، اور فعال ورکیٹٹ میں تمام اعداد و شمار کالم کی قیمت کے لحاظ سے متعدد ورکشاپوں میں تقسیم کیا جاتا ہے. اور تقسیم کار ناموں کو تقسیم سیل کے نام سے نامزد کیا جاتا ہے. اسکرین شاٹ دیکھیں:

کالمز 2 کی طرف سے ڈس تقسیم ڈیٹا

نوٹ: ورکشاپ کے اختتام میں تقسیم کارشیٹس کہاں ہیں جہاں ماسٹر ورکشاپ میں ہے.


ایکسل کے لئے کوبل کے ساتھ کالم پر مبنی ایک سے زیادہ ورکسیٹس میں تقسیم ڈیٹا

ایکسل ابتدائی طور پر، اس طویل عرصے سے VBA کوڈ ہمارے لئے کچھ مشکل ہے، اور ہم میں سے اکثر یہ بھی نہیں جانتے کہ کوڈ کو ہماری ضرورت کے طور پر کس طرح نظر ثانی کرنا ہے.

یہاں، میں آپ کو ایک کثیر آلات کا تعارف کروں گا-ایکسل کے لئے Kutools، اس کے سپلٹ ڈیٹا افادیت نہ صرف کالم کی بنیاد پر متعدد ورکشاپوں میں ڈیٹا کو تقسیم کرنے میں مدد کرسکتا ہے، بلکہ قطار کی گنتی سے ڈیٹا بھی تقسیم کرسکتے ہیں.

ایکسل کے لئے Kutools : 300 آسان ایکسل اضافی سے زیادہ کے ساتھ، 60 دنوں میں کوئی حد کے ساتھ کوشش کرنے کے لئے آزاد.

اگر آپ نے انسٹال کیا ہے ایکسل کے لئے Kutoolsبراہ کرم ذیل میں کریں:

1. اس ڈیٹا کی حد منتخب کریں جو آپ تقسیم کرنا چاہتے ہیں.

2. کلک کریں کوٹول مزید > قرطاس کار > سپلٹ ڈیٹا، اسکرین شاٹ دیکھیں:

کالمز 3 کی طرف سے ڈس تقسیم ڈیٹا

3. میں ایک سے زیادہ ورکشاٹس میں تقسیم ڈیٹا ڈائیلاگ باکس، آپ کو اس کی ضرورت ہے:

1). منتخب کریں مخصوص کالم میں اختیار تقسیم کی بنیاد پر سیکشن، اور کالم کی قیمت منتخب کریں جسے آپ ڈراپ ڈاؤن فہرست میں مبنی ڈیٹا کو تقسیم کرنا چاہتے ہیں. (اگر آپ کا ڈیٹا ہیڈر ہے اور آپ ہر نئی تقسیم کارٹیٹ میں داخل کرنا چاہتے ہیں، تو براہ کرم چیک کریں میرا ڈیٹا ہیڈر ہے اختیار.)

2). اس کے بعد آپ تقسیم کار نام ناموں کی وضاحت کر سکتے ہیں، کے تحت نیا ورکشاٹس کا نام سیکشن، سے ورکیٹ نام کے قوانین کی وضاحت کریں قواعد ڈراپ فہرست، آپ شامل کر سکتے ہیں اپسرگ or لاحقہ شیٹ کے نام کے ساتھ ساتھ.

3). کلک کریں OK بٹن. اسکرین شاٹ دیکھیں:

کالمز 4 کی طرف سے ڈس تقسیم ڈیٹا

4. اب اعداد و شمار ایک نئے ورکشاپ میں متعدد ورکشاپوں میں تقسیم ہوتے ہیں.

کالمز 5 کی طرف سے ڈس تقسیم ڈیٹا

ایکسل کے لئے Kutools اور مفت آزمائش ڈاؤن لوڈ کرنے کے لئے کلک کریں اب!


ایکسل کے لئے کوبل کے ساتھ کالم پر مبنی ایک سے زیادہ ورکسیٹس میں تقسیم ڈیٹا

ایکسل کے لئے Kutools 300 آسان ایکسل ٹولز سے بھی زیادہ شامل ہے. 60 دنوں میں کوئی حد کے ساتھ کوشش کرنے کے لئے مفت. اب مفت آزمائشی ڈاؤن لوڈ کریں!


متعلقہ مضمون:

قطار کے لحاظ سے اعداد و شمار سے متعدد ورکشاپوں میں ڈیٹا کیسے تقسیم کرنا ہے؟



سفارش کردہ پروڈکٹیوٹی ٹولز

آفس ٹیب

سونے کی ستارہ ایکس این ایم ایکس ایکس کروم، فائر فاکس اور نئے انٹرنیٹ ایکسپلورر کی طرح، ایکسل اور دیگر دفتری سافٹ ویئر میں آسان ٹیبز لائیں.

ایکسل کے لئے Kutools

سونے کی ستارہ ایکس این ایم ایکس ایکس حیرت انگیز! 5 منٹ میں اپنی پیداوری میں اضافہ کریں. کسی بھی خاص مہارت کی ضرورت نہیں، ہر روز دو گھنٹوں کو بچاؤ!

سونے کی ستارہ ایکس این ایم ایکس ایکس 300 ایکسل کے لئے نئی خصوصیات، ایکسل آسان اور طاقتور بنائیں:

  • ڈیٹا کھونے کے بغیر سیل / قطار / کالم ضم
  • ایک سے زیادہ شیٹ اور ورک بک بک کو یکجا اور مضبوط.
  • رینجز کا موازنہ کریں، ایک سے زیادہ رینج کاپی کریں، متن میں تاریخ، یونٹ اور کرنسی تبادلوں میں تبدیل کریں.
  • رنگوں کی طرف سے شمار، پیجنگ Subtotals، اعلی درجے کی ترتیب اور سپر فلٹر،
  • مزید منتخب کریں / داخل / حذف / متن / شکل / لنک / تبصرہ / ورک بک بک / ورکشاپ شیٹ ...

ایکسل کے لئے کوٹول کی سکرین شاٹ

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    pradeep sharma · 6 months ago
    I have used this VBA code, its split the data but split whole data in new sheet instead of unique value.
  • To post as a guest, your comment is unpublished.
    Pradeep Sharma · 6 months ago
    The VBA code split the data perfectly but its split the whole data instead of unique value.
  • To post as a guest, your comment is unpublished.
    Jorge Portillo · 6 months ago
    The codes works perfectly, only trouble is that it does not separate columns when the text is too long, I have text with 40 characters and I get an empty "sheet2", every other text gets sorted.


    Any ideas on how to fix it? I've already tried changin variable and placed them as Long, however I am not sure I fully understand the program. all this for the VBA option.
  • To post as a guest, your comment is unpublished.
    Manish · 7 months ago
    I need a macro for following condition
    suppose i have customer excel file in which first 7 rows is for header so, from 8th row records are start
    i need to split rows of 500 record each in one file and save them with name customer1,customer2,customer3,........
    suppose i have customer file of 2540 records so it split in
    customer1 which have header rows with record starts from 8th row to 507th row
    customer2 which have header rows with record starts from 508th row to 1007th row
    customer3 which have header rows with record starts from 1008th row to 1507th row
    customer4 which have header rows with record starts from 1508th row to 2007th row
    customer5 which have header rows with record starts from 2008th row to 2507th row
    customer6 which have header rows with record starts from 2508th row to 2540th row
    • To post as a guest, your comment is unpublished.
      parabola hiperbola · 2 months ago
      hi. I have similar situation, I want to keep first 8 rows in every sheet created. did you find any solution to this?
      • To post as a guest, your comment is unpublished.
        skyyang · 2 months ago
        Hi, guys,
        If your worksheet data contains multiple header rows, the below VBA code can solve your prolem, please try it.

        Sub Parse_data_0213()
        Dim lr As Long
        Dim ws As Worksheet
        Dim vcol, i As Integer
        Dim icol As Long
        Dim myarr As Variant
        Dim title As String
        Dim titlerow As Integer
        Dim xTRg As Range
        Dim xVRg As Range
        Dim xWSTRg As Worksheet
        On Error Resume Next
        Set xTRg = Application.InputBox("Please select the header rows:", "Kutools for Excel", "", Type:=8)
        If TypeName(xTRg) = "Nothing" Then Exit Sub
        Set xVRg = Application.InputBox("Please select the column you want to split data based on:", "Kutools for Excel", "", Type:=8)
        If TypeName(xVRg) = "Nothing" Then Exit Sub
        vcol = xVRg.Column
        Set ws = xTRg.Worksheet
        lr = ws.Cells(ws.Rows.Count, vcol).End(xlUp).Row
        title = xTRg.AddressLocal
        titlerow = xTRg.Cells(1).Row
        icol = ws.Columns.Count
        ws.Cells(1, icol) = "Unique"
        Application.DisplayAlerts = False
        If Not Evaluate("=ISREF('xTRgWs_Sheet!A1')") Then
        Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = "xTRgWs_Sheet"
        Else
        Sheets("xTRgWs_Sheet").Delete
        Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = "xTRgWs_Sheet"
        End If
        Set xWSTRg = Sheets("xTRgWs_Sheet")
        xTRg.Copy
        xWSTRg.Paste Destination:=xWSTRg.Range("A1")
        ws.Activate
        For i = (titlerow + xTRg.Rows.Count) To lr
        On Error Resume Next
        If ws.Cells(i, vcol) <> "" And Application.WorksheetFunction.Match(ws.Cells(i, vcol), ws.Columns(icol), 0) = 0 Then
        ws.Cells(ws.Rows.Count, icol).End(xlUp).Offset(1) = ws.Cells(i, vcol)
        End If
        Next
        myarr = Application.WorksheetFunction.Transpose(ws.Columns(icol).SpecialCells(xlCellTypeConstants))
        ws.Columns(icol).Clear
        For i = 2 To UBound(myarr)
        ws.Range(title).AutoFilter field:=vcol, Criteria1:=myarr(i) & ""
        If Not Evaluate("=ISREF('" & myarr(i) & "'!A1)") Then
        Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = myarr(i) & ""
        Else
        Sheets(myarr(i) & "").Move after:=Worksheets(Worksheets.Count)
        End If
        xWSTRg.Range(title).Copy
        Sheets(myarr(i) & "").Paste Destination:=Sheets(myarr(i) & "").Range("A1")
        ws.Range("A" & (titlerow + xTRg.Rows.Count) & ":A" & lr).EntireRow.Copy Sheets(myarr(i) & "").Range("A" & (titlerow + xTRg.Rows.Count))
        Sheets(myarr(i) & "").Columns.AutoFit
        Next
        xWSTRg.Delete
        ws.AutoFilterMode = False
        ws.Activate
        Application.DisplayAlerts = True
        End Sub

        Hope it can help you, thank you!
  • To post as a guest, your comment is unpublished.
    Dilusha · 7 months ago
    How can I get the Total of Column C for each sheets.?