Note: The other languages of the website are Google-translated. Back to English

Làm thế nào để tìm tất cả các tổng có thể có của hai số trong một danh sách trong Excel?

Giả sử đây là một danh sách các số, bây giờ bạn có thể tìm thấy tất cả các tổng có thể có của hai số trong danh sách này như hình minh họa bên dưới không? Trong Excel, không có hàm tích hợp nào có thể giải quyết được công việc này. Bây giờ tôi giới thiệu cho bạn một mã VBA để xử lý nó.
doc tất cả các tổng có thể có của hai số 1

Find all possible sums of two numbers in a list with VBA code

Find all possible combinations of two lists with List All Combinationsgood idea3


Find all possible sums of two numbers in a list with VBA code

Nếu bạn muốn tìm tất cả các tổng có thể có của hai số trong danh sách, bạn có thể áp dụng mã VBA bên dưới.

1. nhấn Alt + F11 các phím để hiển thị Microsoft Visual Basic for Applications cửa sổ.

2. nhấp chuột Insert > Module, sao chép và dán mã bên dưới vào mô-đun.

VBA: List all possible sums of two numbers in a list

Sub Combinations()
'UpdatebyExtendoffice20180628
    Dim xRgArr
    Dim xNum As Long
    Dim I, J, K As Long
    Dim xTemp As Double
    Dim xRg As Range
    Dim xRgCount As Long
    Dim xDic As New Dictionary
    On Error Resume Next
    Set xRg = Application.InputBox("Select a list (one column):", "KuTools for Excel", Selection.Address, , , , , 8)
    If (xRg Is Nothing) Or (xRg.Count = 1) Then Exit Sub
    xRgCount = xRg.Count
    K = 1
    ReDim xRgArr(1 To xRgCount)
    For Each xCell In xRg
      xRgArr(K) = xCell.Value
      K = K + 1
    Next
    K = 0
    For I = 1 To xRgCount
        For J = I + 1 To xRgCount
            xTemp = xRgArr(I) + xRgArr(J)
            If Not xDic.Exists(xTemp) Then
                xDic.Add CDbl(xTemp), CStr(xTemp)
                K = K + 1
            End If
        Next
    Next
    Range("C1").Resize(xDic.Count, 1) = Application.WorksheetFunction.Transpose(xDic.Keys)
End Sub

doc tất cả các tổng có thể có của hai số 2

3. nhấp chuột Tools > References, trong hộp thoại bật lên, hãy chọn Microsoft Scripting Runtime hộp kiểm.

doc tất cả các tổng có thể có của hai số 3 mũi tên doc sang phải doc tất cả các tổng có thể có của hai số 4

4. nhấp chuột OK để đóng hộp thoại, sau đó nhấn F5 để chạy mã, một hộp thoại bật ra để nhắc bạn chọn một danh sách để tìm tổng số tiền có thể.
doc tất cả các tổng có thể có của hai số 5

5. nhấp chuột OK, thì tất cả các tổng có thể có của hai số trong danh sách được liệt kê trong cột C.
doc tất cả các tổng có thể có của hai số 6

Tip: Trong chuỗi mã, Phạm vi ("C1"). Thay đổi kích thước (xDic.Count, 1), bạn có thể thay đổi C1 thành một ô khác khi bạn cần đặt kết quả.


Find all possible combinations of two lists with List All Combinations

Nếu bạn muốn tìm hoặc liệt kê tất cả các kết hợp có thể có của hai danh sách như hình minh họa bên dưới, List All Combinations tiện ích của Kutools for Excel có thể làm bạn một ân huệ.
doc tất cả các tổng có thể có của hai số 7

Kutools cho Excel, với hơn 300 chức năng tiện dụng, giúp công việc của bạn dễ dàng hơn. 

1. nhấp chuột Kutools > Insert > List All Combinations.
doc tất cả các tổng có thể có của hai số 8

2. bên trong List All Combinations , nhấp vào nút chọn để chọn danh sách đầu tiên bạn sẽ kết hợp.
doc tất cả các tổng có thể có của hai số 9

3. nhấp chuột Add để thêm danh sách vào Combinations list phần.
doc tất cả các tổng có thể có của hai số 10

4. Lặp lại bước 2 và 3 để thêm danh sách thứ hai vào Combinations list.
doc tất cả các tổng có thể có của hai số 11

5. Sau đó nhấn vào Ok để chọn một ô để đặt kết quả kết hợp.
doc tất cả các tổng có thể có của hai số 12

6. nhấp chuột OK. Tất cả các kết hợp có thể có đã được liệt kê trong các ô.
doc tất cả các tổng có thể có của hai số 13

Nhận xét (0)
Chưa có xếp hạng. Hãy là người đầu tiên xếp hạng!
Không có bình luận nào được đăng ở đây
Để lại ý kiến ​​của bạn
Đăng với tư cách khách
×
Đánh giá bài viết này:
0   Nhân vật
Các vị trí được đề xuất

Kết nối với chúng tôi

Bản quyền © 2009 - www.extendoffice.com. | Đã đăng ký Bản quyền. cung cấp bởi ExtendOffice. | BẢN ĐỒ CHI NHÁNH
Microsoft và logo Office là các nhãn hiệu hoặc nhãn hiệu đã đăng ký của Microsoft Corporation tại Hoa Kỳ và / hoặc các quốc gia khác.
Được bảo vệ bởi Sectigo SSL