ٹپ: دوسری زبانیں 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.
    Katharina · 20 days ago
    Great Script, thanks! What do I have to do to set the header row range and column to use for grouping/splitting within the script? I know it is more elegant to use selectable parameters but for my use case it is always the same. As I do know nothing about VBA, any little hint is appreciated :-) Best, Katharina
  • To post as a guest, your comment is unpublished.
    daiana · 24 days ago
    It doesn't work with 120000 rows. Is there any way to make it work?
  • To post as a guest, your comment is unpublished.
    Radoslav · 27 days ago
    Perfect!!! Works and refer to all my demands. Tnx for that source code.
  • To post as a guest, your comment is unpublished.
    Rudi Miller · 1 months ago
    Sub parse_data()
    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
    vcol = 1
    Set ws = Sheets("Sheet1")
    lr = ws.Cells(ws.Rows.Count, vcol).End(xlUp).Row
    title = "A1:C1"
    titlerow = ws.Range(title).Cells(1).Row
    icol = ws.Columns.Count
    ws.Cells(1, icol) = "Unique"
    For i = 2 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
    ws.Range("A" & titlerow & ":A" & lr).EntireRow.Copy Sheets(myarr(i) & "").Range("A1")
    Sheets(myarr(i) & "").Columns.AutoFit
    Next
    ws.AutoFilterMode = False
    ws.Activate
    End Sub
  • To post as a guest, your comment is unpublished.
    Jason · 2 months ago
    This formula is great, works perfectly for me.
    I want to split out data based on a location, which is in column 1. Which this does.
    However, is it possible to also split out based on column 2, for example. Built and Not Built. So a secondary condition also?