Excel-dagi qatorlarni birlashtirishning 2 ta oson usuli

Excelda ma'lumotlarni tahlil qilganda, unda bir nechta takroriy qatorlar mavjudligini ko'rishingiz mumkin. Bunday holda, siz qatorlarni tezda birlashtirishingiz kerak bo'lishi mumkin. Ushbu postda ularni olishning 2 ta tezkor usuli taklif etiladi.

Ko'pgina foydalanuvchilar tez-tez takrorlanadigan qatorlarni birlashtirishlari va Excelda tegishli qiymatlarni yig'ishlari kerak. Misol uchun, menda Excel ish varag'ida quyidagi skrinshot kabi ko'plab takroriy yozuvlarni o'z ichiga olgan bir qator ma'lumotlar mavjud. Shunday qilib, men ikki nusxadagi satrlarni birlashtirmoqchiman va tegishli qiymatlarni boshqa ustunga jamlamoqchiman. Agar buni qo'lda qilsam, albatta muammoli bo'ladi. Shuning uchun men buni amalga oshirish uchun quyidagi 2 usuldan foydalanaman.

1-usul: "Birlashtirish" funksiyasidan foydalaning

1. Birinchidan, birlashtirilgan va yig'ilgan ma'lumotlarni joylashtirmoqchi bo'lgan bo'sh katakchani bosing.
2. Keyin "Ma'lumotlar" yorlig'iga o'ting va "Birlashtirish" tugmasini bosing.
3. Qalqib chiquvchi dialog oynasida "Funktsiya" oynasida "Sum" tanlanganligiga ishonch hosil qiling.
4. Keyinchalik bosing  tugmasini bosing.
5. Keyinchalik, birlashtirmoqchi bo'lgan diapazonni tanlang va bosing  tugmasini bosing.
6. Shundan so'ng, "Consolidate" dialog oynasida "Qo'shish" tugmasini bosing.
7. Keyinchalik, "Yuqori qator" va "Chap ustun" parametrlarini belgilang.
8. Nihoyat, "OK" tugmasini bosing.
9. Quyidagi skrinshotda ko'rsatilganidek, bir vaqtning o'zida qatorlar birlashtiriladi.

2-usul: Excel VBA kodidan foydalaning

1. Eng boshida kerakli diapazonni tanlang.
2. Keyin, VBA muharririni "ga muvofiq ishga tushiring.Excel-da VBA kodini qanday ishlatish kerak".
3. Keyin, quyidagi VBA kodini modulga nusxalang.

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

4. Shundan so'ng, ushbu makrosni hozir ishga tushirish uchun "F5" tugmasini bosing.
5. Makros tugagandan so'ng, yangi Excel ish kitobi paydo bo'ladi, unda siz quyidagi rasmdagi kabi birlashtirilgan qatorlar va jamlangan ma'lumotlarni ko'rishingiz mumkin.

qiyoslash

Excel halokatiga duch kelganda

Barchamizga ma'lumki, Excel vaqti-vaqti bilan ishlamay qolishi mumkin. Bunday holatda, eng yomoni, joriy Excel fayli bevosita buzilgan bo'lishi mumkin. O'sha paytda harakat qilishdan boshqa ilojingiz yo'q Excelni tiklash. Bu sizdan mutaxassislardan yordam so'rashni yoki maxsus Excel ta'mirlash vositasidan foydalanishni talab qiladi, masalan DataNumen Excel Repair.

Muallif kirish:

Shirli Chjan ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc buzilgan SQL Server va Outlook ta'mirlash dasturiy mahsulotlar. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com