Excel မှာ data ကို ခွဲခြမ်းစိတ်ဖြာတဲ့အခါ ထပ်နေတဲ့ row တွေ အများကြီးပါနေတာကို တွေ့ရပါလိမ့်မယ်။ ဒီကိစ္စမှာ row တွေကို မြန်မြန်ဆန်ဆန် ပေါင်းစည်းချင်ပါလိမ့်မယ်။ ဒီပို့စ်မှာ မြန်မြန်ရနိုင်တဲ့ နည်းလမ်း ၂ ခုကို ပေးပါမယ်။
အသုံးပြုသူအများအပြားသည် ပွားနေသောအတန်းများကို ပေါင်းစည်းပြီး Excel တွင် လိုက်လျောညီထွေရှိသော တန်ဖိုးများကို ပေါင်းစည်းရန် လိုအပ်ပါသည်။ ဥပမာအားဖြင့်၊ ကျွန်ုပ်တွင် အောက်ဖော်ပြပါ ဖန်သားပြင်ဓာတ်ပုံကဲ့သို့ ထပ်တူထည့်သွင်းမှုများ အများအပြားပါရှိသော Excel အလုပ်စာရွက်တွင် ဒေတာအမြောက်အများရှိပါသည်။ ထို့ကြောင့်၊ ထပ်နေသောအတန်းများကို စုစည်းပြီး အခြားကော်လံတွင် သက်ဆိုင်ရာတန်ဖိုးများကို ပေါင်းစည်းလိုပါသည်။ ဒါကို ကိုယ်တိုင်လုပ်ရင် သေချာပေါက် ဒုက္ခဖြစ်လိမ့်မယ်။ ထို့ကြောင့် ကျွန်ုပ်သည် ၎င်းကို သိရှိရန် အောက်ပါနည်းလမ်း ၂ ခုကို အသုံးပြုပါသည်။
နည်းလမ်း 1- "Consolidate" Function ကိုသုံးပါ။
- ပထမဦးစွာ၊ သင်ပေါင်းစည်းပြီး summed data ကို နေရာချလိုသည့် ဆဲလ်အလွတ်တစ်ခုကို နှိပ်ပါ။
- ထို့နောက် "ဒေတာ" တက်ဘ်သို့လှည့်ပြီး "စုစည်းမှု" ခလုတ်ကိုနှိပ်ပါ။
- ပေါ်လာသော ဒိုင်ယာလော့ခ်ဘောက်စ်တွင်၊ "Sum" ကို "Function" အကွက်တွင် ရွေးချယ်ထားကြောင်း သေချာပါစေ။
- ထို့နောက်ကိုကလစ်နှိပ်ပါ
ခလုတ်ကို။
- နောက်ပိုင်းတွင် သင်စုစည်းလိုသော အပိုင်းအခြားကို ရွေးပြီး နှိပ်ပါ။
ခလုတ်ကို။
- ထို့နောက် "Consolidate" dialog ရှိ "Add" ခလုတ်ကိုနှိပ်ပါ။
- ထို့နောက် "ထိပ်တန်းအတန်း" နှင့် "ဘယ်ကော်လံ" ရွေးချယ်မှုကိုစစ်ဆေးပါ။
- နောက်ဆုံးအနေနဲ့ "OK" ခလုတ်ကိုနှိပ်ပါ။
- အောက်ဖော်ပြပါ screenshot တွင် ပြထားသည့်အတိုင်း အတန်းများကို တစ်စုတစ်စည်းတည်း စုစည်းထားသည်။
နည်းလမ်း 2- Excel VBA ကုဒ်ကိုသုံးပါ။
- အစတွင်၊ သင်လိုချင်သောအတိုင်းအတာကိုရွေးချယ်ပါ။
- ထို့နောက် "" အရ VBA တည်းဖြတ်သူကို အစပျိုးပါ။သင်၏ Excel တွင် VBA ကုဒ်ကိုမည်သို့ဖွင့်မည်နည်း။"။
- ထို့နောက်၊ အောက်ပါ VBA ကုဒ်ကို မော်ဂျူးတစ်ခုသို့ ကူးယူပါ။
Sub MergeRowsSumValues()
Dim objSelectedRange As Excel.Range
Dim varAddressArray As Variant
Dim nStartRow, nEndRow As Integer
Dim strFirstColumn, strSecondColumn As String
Dim objDictionary As Object
Dim nRow As Integer
Dim objNewWorkbook As Excel.Workbook
Dim objNewWorksheet As Excel.Worksheet
Dim varItems, varValues As Variant
On Error GoTo ErrorHandler
Set objSelectedRange = Excel.Application.Selection
varAddressArray = Split(objSelectedRange.Address(, False), ":")
nStartRow = Split(varAddressArray(0), "$")(1)
strFirstColumn = Split(varAddressArray(0), "$")(0)
nEndRow = Split(varAddressArray(1), "$")(1)
strSecondColumn = Split(varAddressArray(1), "$")(0)
Set objDictionary = CreateObject("Scripting.Dictionary")
For nRow = nStartRow To nEndRow
strItem = ActiveSheet.Range(strFirstColumn & nRow).Value
strValue = ActiveSheet.Range(strSecondColumn & nRow).Value
If objDictionary.Exists(strItem) = False Then
objDictionary.Add strItem, strValue
Else
objDictionary.Item(strItem) = objDictionary.Item(strItem) + strValue
End If
Next
Set objNewWorkbook = Excel.Application.Workbooks.Add
Set objNewWorksheet = objNewWorkbook.Sheets(1)
varItems = objDictionary.keys
varValues = objDictionary.items
nRow = 0
For i = LBound(varItems) To UBound(varItems)
nRow = nRow + 1
With objNewWorksheet
.Cells(nRow, 1) = varItems(i)
.Cells(nRow, 2) = varValues(i)
End With
Next
objNewWorksheet.Columns("A:B").AutoFit
ErrorHandler:
Exit sub
End Sub
- ထို့နောက် ဤ macro ကိုယခု run ရန် "F5" ကိုနှိပ်ပါ။
- မက်ခရို ပြီးသောအခါ၊ အောက်ဖော်ပြပါပုံကဲ့သို့ ပေါင်းစပ်ထားသော အတန်းများနှင့် ပေါင်းစပ်ဒေတာများကို သင်မြင်နိုင်စေမည့် Excel workbook အသစ်တစ်ခု ပေါ်လာပါမည်။
နှိုင်းယှဉ်မှု
| အားသာချက်များ | အားနည်းချက်များ | |
| method ကို 1 | လည်ပတ်ရန်လွယ်ကူ | တစ်ခုနှင့်တစ်ခု မခြားသော ကော်လံနှစ်ခုကို လုပ်ဆောင်၍မရပါ။ |
| method ကို 2 | 1. ပြန်သုံးရန် အဆင်ပြေသည်။ | 1. VBA newbies များအတွက် အနည်းငယ် နားလည်ရခက်ပါသည်။ |
| 2. မူရင်း Excel စာရွက်ကို ဖိုင်အသစ်တွင် ပေါင်းစည်းထားသည့်ဒေတာကို ထည့်ထားသောကြောင့် ရှုပ်မည်မဟုတ်ပါ။ | 2. တစ်ခုနှင့်တစ်ခုမခြားသော ကော်လံနှစ်ခုကို လုပ်ဆောင်၍မရပါ။ |
Excel Crash နဲ့တွေ့တဲ့အခါ
အားလုံးသိကြတဲ့အတိုင်း Excel က အချိန်နဲ့အမျှ ပျက်စီးသွားနိုင်ပါတယ်။ ဤအခြေအနေအောက်တွင်၊ ၎င်း၏အဆိုးဆုံးမှာ၊ လက်ရှိ Excel ဖိုင်သည် တိုက်ရိုက်ပျက်စီးသွားနိုင်သည်။ ထိုအချိန်တွင် သင်ကြိုးစားရန်မှတပါး ရွေးချယ်စရာမရှိပေ။ Excel ပြန်လည်ရယူခြင်း။. ၎င်းသည် သင့်အား ကျွမ်းကျင်သူများကို အကူအညီတောင်းရန် သို့မဟုတ် ကဲ့သို့သော အထူးပြု Excel ပြုပြင်ရေးကိရိယာကို အသုံးပြုရန် တောင်းဆိုသည်။ DataNumen Excel Repair.
စာရေးသူနိဒါန်း:
Shirley Zhang သည် ဒေတာပြန်လည်ရယူရေးဆိုင်ရာ ကျွမ်းကျင်သူဖြစ်သည်။ DataNumen, Inc. အပါအဝင် ဒေတာပြန်လည်ရယူရေးနည်းပညာများတွင် ကမ္ဘာ့ခေါင်းဆောင်ဖြစ်သည်။ အကျင့်ပျက်ခြစားမှု SQL Server နှင့် outlook ပြုပြင်ရေး software ထုတ်ကုန်များ။ ပိုမိုသိရှိလိုပါကသွားရောက်ကြည့်ရှု www ။datanumen.com








