Excel дээр өгөгдөлд дүн шинжилгээ хийхдээ олон давхардсан мөр агуулж байгааг олж мэднэ. Энэ тохиолдолд та мөрүүдийг хурдан нэгтгэхийг хүсч магадгүй юм. Энэ хost авах 2 хурдан арга хэрэгслийг санал болгоно.
Олон хэрэглэгчид давхардсан мөрүүдийг нэгтгэж, Excel-ийн дагуу утгуудыг нэгтгэх шаардлагатай болдог. Жишээлбэл, би Excel-ийн ажлын хуудсанд дараахь дэлгэцийн агшин шиг олон тооны давхардсан оруулгуудыг агуулсан өгөгдлийн хүрээтэй байна. Тиймээс би давхардсан мөрүүдийг нэгтгэж, харгалзах утгуудыг өөр баганад нэгтгэхийг хүсч байна. Хэрэв би үүнийг гараар хийвэл энэ нь мэдээж хэцүү байх болно. Тиймээс би үүнийг хэрэгжүүлэх дараах 2 аргыг ашиглаж байна.
Арга 1: "Нэгдэх" функцийг ашигла
- Нэгдүгээрт, нэгтгэсэн болон нэгтгэсэн өгөгдлийг байрлуулахыг хүссэн хоосон нүдийг дарна уу.
- Дараа нь, "Мэдээлэл" таб руу шилжиж, "Нэгдэх" товчийг дарна уу.
- Гарч ирэх цонхны цонхонд “Функц” хайрцагт “Sum” сонгосон эсэхийг шалгана уу.
- Дараа нь товчлуур.
- Дараа нь нэгтгэх хүрээгээ сонгоод товшино уу товчлуур.
- Үүний дараа "Нэгдэх" харилцах цонхны "Нэмэх" товчийг дарна уу.
- Дараа нь "Дээд эгнээ" ба "Зүүн багана" сонголтыг шалгана уу.
- Эцэст нь “OK” товчийг дарна уу.
- Дараахь дэлгэцийн агшинд харуулсны дагуу эгнээ нэг дор нэгтгэгдэнэ.
Арга 2: Excel VBA код ашиглах
- Хамгийн эхэнд хүссэн хүрээгээ сонго.
- Дараа нь VBA редакторыг “VBA кодыг Excel програм дээрээ хэрхэн ажиллуулах вэ".
- Дараа нь дараахь 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 OnArrorect.Arrorect-ийн алдааны тохиргоо. = 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 Дараа objDictionary.Add strItem, = objDictionary.Item (strItem) + strValue End Хэрэв Next Set objNewWorkbook = Excel.Application.Workbooks.Add Set objNewWorksheet = objNewWorkbook.Sheets (1) varItems = objDictionary.keys varValues = objDictionary.items nRow = 0 For ) UBound (varItems) nRow = nRow + 1 нь objNewWorksheet .Cells (nRow, 1) = varItems (i) .Cells (nRow, 2) = varValues (i) Next objNewWorksheet.Columns ("A: B") .AutoFit ErrorHandler: Sub End Sub-ээс гарах
- Үүний дараа “F5” товчийг дарж энэ макро одоо ажиллуулна уу.
- Макро дуусахад Excel-ийн шинэ ажлын дэвтэр гарч ирэх бөгөөд доорх зураг шиг нэгтгэсэн мөр, нэгтгэсэн өгөгдлийг харах боломжтой.
харьцуулалт
Давуу тал | Сул тал | |
Арга 1 | Үйлдэхэд хялбар | Хажуудаа биш хоёр баганыг боловсруулах боломжгүй байна |
Арга 2 | 1. Дахин ашиглахад тохиромжтой | 1. VBA-ийн шинэ тоглогчдод ойлгоход жаахан хэцүү байна |
2. Эх файлын хуудсыг нэгтгэсэн өгөгдлийг шинэ файлд оруулах байдлаар бүү будлиул | 2. Хажуудаа биш хоёр баганыг боловсруулах боломжгүй |
Excel-ийн сүйрэлтэй тулгарах үед
Excel-ийн үе үе эвдэрч болзошгүйг бид бүгд мэднэ. Энэ нөхцөлд хамгийн муу нь одоогийн Excel файл шууд гэмтсэн байж болзошгүй юм. Тэр үед та оролдохоос өөр аргагүй болно Excel сэргээх. Энэ нь мэргэжлийн хүмүүсээс тусламж хүсч эсвэл Excel-ийн тусгай засварын хэрэгслийг ашиглахыг шаарддаг DataNumen Excel Repair.
Зохиогчийн танилцуулга:
Ширли Жан бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. авлигад автсан SQL Server програм хангамжийн бүтээгдэхүүнийг засах хэтийн төлөв. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com
Таны нийтлэлд оруулсан үнэ цэнэтэй мэдээлэл надад таалагдаж байна. Би таны блогийг тэмдэглээд энд байнга шалгана. Би энд маш олон шинэ зүйл сурна гэдэгтээ итгэлтэй байна! Дараагийн ажилд нь амжилт хүсье!