Tính tổng của 4 dòng liên tiếp từ trên xuống dưới chỉ lấy kết quả 0 của 4 ô trống

Liên hệ QC
H

hcl_pt

Thành viên thường trực
Tham gia
21/10/10
Bài viết
208
Được thích
11
Mình có một vấn đề sau mong GPE giúp đỡ!
- Sheet1: là dữ liệu từ dòng A1, A2, A3, A4,...., cần tính tổng dữ liệu của 4 dòng từ A1A2A3A4, A1A2A3A5, A1A2A3A6,.... lần lượt từ trên xuống dưới và chỉ lấy kết quả bằng 0 (kết quả của 4 ô trống không có dữ liệu) xuất sang sheet2 ở ô tương ứng của tổng 4 dòng theo kí hiệu, những kết quả khác 0 thì bỏ qua không lấy. Mình có mình hoạ cho vài trường hợp. Rất mong GPE xem giúp. Xin chân thành cảm ơn!
 

File đính kèm

  • TINH_TONG_0.xlsx
    14.6 KB · Đọc: 32
Kỳ lạ! Tính tổng các số nguyên dương và chỉ lấy kết quả bằng 0 thì tính làm gì hả bạn??!!!!
 
CÔng thức sheet2 B5:
Mã: 
=IF(INDEX((Sheet1!$B$5:$K$5="")*(Sheet1!$B$6:$K$6="")*(Sheet1!$B$7:$K$7="")*(Sheet1!$B8:$K8=""),,COLUMN(Sheet1!A$1)),0,"")
Kéo sang phải, kéo xuống. Khi đến A1A2A4A5 thì sửa công thức lại, ... ẹc ẹc, cái này chắc phải dùng VBA thôi, chức công thức tổng quát thì ...
 
hcl_pt đã viết:
Mình có một vấn đề sau mong GPE giúp đỡ!
- Sheet1: là dữ liệu từ dòng A1, A2, A3, A4,...., cần tính tổng dữ liệu của 4 dòng từ A1A2A3A4, A1A2A3A5, A1A2A3A6,.... lần lượt từ trên xuống dưới và chỉ lấy kết quả bằng 0 (kết quả của 4 ô trống không có dữ liệu) xuất sang sheet2 ở ô tương ứng của tổng 4 dòng theo kí hiệu, những kết quả khác 0 thì bỏ qua không lấy. Mình có mình hoạ cho vài trường hợp. Rất mong GPE xem giúp. Xin chân thành cảm ơn!
Nhấp chuột vào đây để mở rộng...

Sheet2:
- Chọn A5:A37, chọn Data-Text to columns-Delimiters (Other : A)-Destination : $L$5
Mã: 
B5=IF(SUMPRODUCT((ROW(Sheet2!B$5:B$24)=$M5:$P5+4)*(Sheet1!B$5:B$24))=0,0,"")
 

File đính kèm

  • TINH_TONG_0(1).rar
    19.5 KB · Đọc: 20
nginh đã viết:
Sheet2:
- Chọn A5:A37, chọn Data-Text to columns-Delimiters (Other : A)-Destination : $L$5
Mã: 
B5=IF(SUMPRODUCT((ROW(Sheet2!B$5:B$24)=$M5:$P5+4)*(Sheet1!B$5:B$24))=0,0,"")
Nhấp chuột vào đây để mở rộng...
Vâng! Cảm ơn bạn nhiều quá! Làm như vậy đúng rồi ạ. Nhưng ngoài cách dùng công thức này ra bạn có thể xử lí bằng VBA được không ạ, vì dữ liệu thực tế rất nhiều 50 dòng, 1000 cột mình dùng công thức file rất nặng và không chạy được ạ! Và cũng mong bạn xử lí giúp ở cột kết quả "tổng 4 dòng" làm sao xuất được luôn tất cả kết quả kí hiệu 4 dòng ghép lần lượt từ trên xuống như mình làm mẫu: A1A2A3A4, A1A2A3A5, A1A2A3A6,...! Xin một lần nữa cảm ơn bạn và cảm ơn GPE!
 
hcl_pt đã viết:
Vâng! Cảm ơn bạn nhiều quá! Làm như vậy đúng rồi ạ. Nhưng ngoài cách dùng công thức này ra bạn có thể xử lí bằng VBA được không ạ, vì dữ liệu thực tế rất nhiều 50 dòng, 1000 cột mình dùng công thức file rất nặng và không chạy được ạ! Và cũng mong bạn xử lí giúp ở cột kết quả "tổng 4 dòng" làm sao xuất được luôn tất cả kết quả kí hiệu 4 dòng ghép lần lượt từ trên xuống như mình làm mẫu: A1A2A3A4, A1A2A3A5, A1A2A3A6,...! Xin một lần nữa cảm ơn bạn và cảm ơn GPE!
Nhấp chuột vào đây để mở rộng...
Má ơi! dữ liệu bài này mà 50 dòng & 1000 cột là máy mình "tèo" luôn. Híc, bó tay, bó tay
Chạy thử code này:
Mã: 
Public Sub Tong()
    Dim Vung, I, J, K, kK, Mg, M, mM
    Vung = Sheets("sheet1").Range(Sheets("sheet1").[A5], Sheets("sheet1").[A50000].End(xlUp)).Resize(, 11)
    ReDim Mg(1 To Application.WorksheetFunction.Combin(UBound(Vung), 4), 1 To UBound(Vung, 2))
        For I = 1 To UBound(Vung) - 3
            For J = I + 1 To UBound(Vung) - 2
                For K = J + 1 To UBound(Vung) - 1
                    For kK = K + 1 To UBound(Vung)
                        M = M + 1
                        Mg(M, 1) = Vung(I, 1) & Vung(J, 1) & Vung(K, 1) & Vung(kK, 1)
                        For mM = 2 To UBound(Vung, 2)
                            If Vung(I, mM) = "" Then
                                If Vung(J, mM) = "" Then
                                    If Vung(K, mM) = "" Then
                                        If Vung(kK, mM) = "" Then
                                            Mg(M, mM) = 0
                                        End If
                                    End If
                                End If
                            End If
                        Next mM
                    Next kK
                Next K
            Next J
        Next I
    Sheets("sheet2").[M5:W500000].ClearContents
    Sheets("sheet2").[M5].Resize(UBound(Mg, 1), UBound(Mg, 2)) = Mg
End Sub
Mà cái bài này là làm cái quái gì vậy bạn ???
Thân
 

File đính kèm

  • TINH_TONG_0-1.rar
    25.9 KB · Đọc: 22
concogia đã viết:
Má ơi! dữ liệu bài này mà 50 dòng & 1000 cột là máy mình "tèo" luôn. Híc, bó tay, bó tay
Chạy thử code này:
Mã: 
Public Sub Tong()
    Dim Vung, I, J, K, kK, Mg, M, mM
    Vung = Sheets("sheet1").Range(Sheets("sheet1").[A5], Sheets("sheet1").[A50000].End(xlUp)).Resize(, 11)
    ReDim Mg(1 To Application.WorksheetFunction.Combin(UBound(Vung), 4), 1 To UBound(Vung, 2))
        For I = 1 To UBound(Vung) - 3
            For J = I + 1 To UBound(Vung) - 2
                For K = J + 1 To UBound(Vung) - 1
                    For kK = K + 1 To UBound(Vung)
                        M = M + 1
                        Mg(M, 1) = Vung(I, 1) & Vung(J, 1) & Vung(K, 1) & Vung(kK, 1)
                        For mM = 2 To UBound(Vung, 2)
                            If Vung(I, mM) = "" Then
                                If Vung(J, mM) = "" Then
                                    If Vung(K, mM) = "" Then
                                        If Vung(kK, mM) = "" Then
                                            Mg(M, mM) = 0
                                        End If
                                    End If
                                End If
                            End If
                        Next mM
                    Next kK
                Next K
            Next J
        Next I
    Sheets("sheet2").[M5:[COLOR=#ff0000][B]W[/B][/COLOR]500000].ClearContents
    Sheets("sheet2").[M5].Resize(UBound(Mg, 1), UBound(Mg, 2)) = Mg
End Sub
Mà cái bài này là làm cái quái gì vậy bạn ???
Thân
Nhấp chuột vào đây để mở rộng...
Bác concogia ơi! Em thay đổi thông số về số cột mà nó cứ mặc định số cột của bác. E mần mà không ra cách thay đổi về số cột ví dụ như em muốn làm với 50 cột chẳng hạn thì thay đổi như thế nào ạ? Xin cảm ơn bác! Dạ em xin lỗi, em mần ra rồi ạ, Xin cảm ơn bác!
 
Lần chỉnh sửa cuối:
[thongBao] To ConCoGia;
Mà cái bài này là làm cái quái gì vậy bạn ???
[/Thongbao]

Câu này đã được hỏi chủ topic nhiều lần, bỡi nhiều người
/(/hưng chưa có câu trả lời thỏa đán

Vậy từ đó CòGià tự suy đi!

Yes - No
 
HYen17 đã viết:
Câu này đã được hỏi chủ topic nhiều lần, bỡi nhiều người
/(/hưng chưa có câu trả lời thỏa đán
Nhấp chuột vào đây để mở rộng...
Em là một số những người thắc mắc và không thấy trả lời
Bởi vậy sau này cứ gặp mấy bài này là em... biến (hay nói đúng hơn là làm.. biếng)
Ẹc... Ẹc...
 
hcl_pt đã viết:
Vâng! Cảm ơn bạn nhiều quá! Làm như vậy đúng rồi ạ. Nhưng ngoài cách dùng công thức này ra bạn có thể xử lí bằng VBA được không ạ, vì dữ liệu thực tế rất nhiều 50 dòng, 1000 cột mình dùng công thức file rất nặng và không chạy được ạ! Và cũng mong bạn xử lí giúp ở cột kết quả "tổng 4 dòng" làm sao xuất được luôn tất cả kết quả kí hiệu 4 dòng ghép lần lượt từ trên xuống như mình làm mẫu: A1A2A3A4, A1A2A3A5, A1A2A3A6,...! Xin một lần nữa cảm ơn bạn và cảm ơn GPE!
Nhấp chuột vào đây để mở rộng...
Bạn thử code sau
Mã: 
Sub tong()
Dim R, a(), b(), c(), i, k, j As Integer
Sheets("sheet2").Activate
Set R = Sheets("sheet1").[B1:K1]
a = Sheets("sheet2").[A5:A37].Value
b = Sheets("sheet2").[B1:K1].Value
H = UBound(a)
W = UBound(b, 2)
ReDim c(1 To H, 1 To W)
For i = 1 To H
    For k = 1 To W
        j = WorksheetFunction.Match(b(1, k), R, 0)
        If Evaluate(Replace(Replace(a(i, 1), "A", """,Sheet1!A:K," & j + 1 & ",0)+VLOOKUP(""A") _
        & """,Sheet1!A:K," & j + 1 & ",0)", """,Sheet1!A:K," & j + 1 & ",0)", "", 1, 1)) = 0 Then _
        c(i, k) = a(i, 1) Else c(i, k) = ""
    Next
Next
        [B5].Resize(H, W) = c
End Sub
 

File đính kèm

  • TINH TONG.xls
    60 KB · Đọc: 11
Lần chỉnh sửa cuối:
Thử chút với công thức "tổng quát" xem sao:
tại ô B5 của Sheet 2 sử dụng công thức sau:
PHP: 
=IF(SUMPRODUCT(SUBTOTAL(109,OFFSET(Sheet1!$A$1,TRIM(MID(SUBSTITUTE($A5,"A",REPT(" ",255)),255 * ROW($1:$4),255))+3,MATCH(B$1,Sheet1!$B$1:$K$1,1),,)))>0,"",0)
Enter và kéo sang ngang, xuống dưới.
 
concogia đã viết:
Má ơi! dữ liệu bài này mà 50 dòng & 1000 cột là máy mình "tèo" luôn. Híc, bó tay, bó tay
Chạy thử code này:
Mã: 
Public Sub Tong()
    Dim Vung, I, J, K, kK, Mg, M, mM
    Vung = Sheets("sheet1").Range(Sheets("sheet1").[A5], Sheets("sheet1").[A50000].End(xlUp)).Resize(, 11)
    ReDim Mg(1 To Application.WorksheetFunction.Combin(UBound(Vung), 4), 1 To UBound(Vung, 2))
        For I = 1 To UBound(Vung) - 3
            For J = I + 1 To UBound(Vung) - 2
                For K = J + 1 To UBound(Vung) - 1
                    For kK = K + 1 To UBound(Vung)
                        M = M + 1
                        Mg(M, 1) = Vung(I, 1) & Vung(J, 1) & Vung(K, 1) & Vung(kK, 1)
                        For mM = 2 To UBound(Vung, 2)
                            If Vung(I, mM) = "" Then
                                If Vung(J, mM) = "" Then
                                    If Vung(K, mM) = "" Then
                                        If Vung(kK, mM) = "" Then
                                            Mg(M, mM) = 0
                                        End If
                                    End If
                                End If
                            End If
                        Next mM
                    Next kK
                Next K
            Next J
        Next I
    Sheets("sheet2").[M5:W500000].ClearContents
    Sheets("sheet2").[M5].Resize(UBound(Mg, 1), UBound(Mg, 2)) = Mg
End Sub
Mà cái bài này là làm cái quái gì vậy bạn ???
Thân
Nhấp chuột vào đây để mở rộng...
Bác concogia và các bạn có thể xem giúp mình đoạn code của bác concogia được không ạ? Mình mong các bạn xem chỉnh lại đoạn code một chút sao cho kết quả chỉ cần tính tổng dữ liệu 4 dòng từ dòng A1 ghép hết với các dòng khác là dừng lại (đến A1A18A19A20 là dừng lại, không tính tổng ghép từ dòng A2A3A4A5,... lên nữa). Xin cảm ơn các bạn!
 
hcl_pt đã viết:
Bác concogia và các bạn có thể xem giúp mình đoạn code của bác concogia được không ạ? Mình mong các bạn xem chỉnh lại đoạn code một chút sao cho kết quả chỉ cần tính tổng dữ liệu 4 dòng từ dòng A1 ghép hết với các dòng khác là dừng lại (đến A1A18A19A20 là dừng lại, không tính tổng ghép từ dòng A2A3A4A5,... lên nữa). Xin cảm ơn các bạn!
Nhấp chuột vào đây để mở rộng...
Chưa thấy Bác Cò "nhúc nhích".Thử code này coi sao.
[GPECODE=vb]Public Sub Co_Oi_Co_A()
Dim sArr(), dArr(), I As Long, J As Long, K As Long, N As Long
Dim M As Long, X As Long, Rws As Long, CoL As Long
sArr = Sheet1.Range("A5:K24").Value2
Rws = UBound(sArr, 1)
CoL = UBound(sArr, 2)
ReDim dArr(1 To 65000, 1 To CoL)
For X = 2 To Rws - 2
For M = X + 1 To Rws - 1
For N = M + 1 To Rws
K = K + 1
dArr(K, 1) = sArr(1, 1) & sArr(X, 1) & sArr(M, 1) & sArr(N, 1)
For J = 2 To CoL
If sArr(1, J) + sArr(X, J) + sArr(M, J) + sArr(N, J) = 0 Then
dArr(K, J) = "X" '"Hay bằng cái gì đó"
End If
Next J
Next N
Next M
Next X
With Sheet2
.[A5].Resize(65000, CoL).ClearContents
.[A5].Resize(K, CoL) = dArr
End With
End Sub[/GPECODE]
 
Lần chỉnh sửa cuối:
hcl_pt đã viết:
Bác concogia và các bạn có thể xem giúp mình đoạn code của bác concogia được không ạ? Mình mong các bạn xem chỉnh lại đoạn code một chút sao cho kết quả chỉ cần tính tổng dữ liệu 4 dòng từ dòng A1 ghép hết với các dòng khác là dừng lại (đến A1A18A19A20 là dừng lại, không tính tổng ghép từ dòng A2A3A4A5,... lên nữa). Xin cảm ơn các bạn!
Nhấp chuột vào đây để mở rộng...
Bỏ bớt một vòng lặp đi thôi mà
Mã: 
Public Sub Tong()
    Dim Vung, I, J, K, kK, Mg, M, mM
    Vung = Sheets("sheet1").Range(Sheets("sheet1").[A5], Sheets("sheet1").[A50000].End(xlUp)).Resize(, 11)
    ReDim Mg(1 To Application.WorksheetFunction.Combin(UBound(Vung) - 1, 3), 1 To UBound(Vung, 2))
        I = 1
            For J = I + 1 To UBound(Vung) - 2
                For K = J + 1 To UBound(Vung) - 1
                    For kK = K + 1 To UBound(Vung)
                        M = M + 1
                        Mg(M, 1) = Vung(I, 1) & Vung(J, 1) & Vung(K, 1) & Vung(kK, 1)
                        For mM = 2 To UBound(Vung, 2)
                            If Vung(I, mM) = "" Then
                                If Vung(J, mM) = "" Then
                                    If Vung(K, mM) = "" Then
                                        If Vung(kK, mM) = "" Then
                                            Mg(M, mM) = 0
                                        End If
                                    End If
                                End If
                            End If
                        Next mM
                    Next kK
                Next K
            Next J
    Sheets("sheet2").[M5:W50000].ClearContents
    Sheets("sheet2").[M5].Resize(UBound(Mg, 1), UBound(Mg, 2)) = Mg
End Sub
Mà cái câu này:
.....chỉ cần tính tổng dữ liệu 4 dòng từ dòng A1 ghép hết với các dòng khác là dừng lại (đến A1A18A19A20 là dừng lại, không tính tổng ghép từ dòng A2A3A4A5,.
Nhấp chuột vào đây để mở rộng...
hơi hơi ....rối, tới A1A18A19A20 có ....2 cách ghép. Híc
Thân
To Ba Tê: mới đi "tưng tưng" dzìa, ngó lại bài xem .....hồi đó mình viết cái quái gì rồi...mới sửa được. Híc
 
Lần chỉnh sửa cuối:
concogia đã viết:
Má ơi! dữ liệu bài này mà 50 dòng & 1000 cột là máy mình "tèo" luôn. Híc, bó tay, bó tay
Chạy thử code này:
Mã: 
Public Sub Tong()
    Dim Vung, I, J, K, kK, Mg, M, mM
    Vung = Sheets("sheet1").Range(Sheets("sheet1").[A5], Sheets("sheet1").[A50000].End(xlUp)).Resize(, 11)
    ReDim Mg(1 To Application.WorksheetFunction.Combin(UBound(Vung), 4), 1 To UBound(Vung, 2))
        For I = 1 To UBound(Vung) - 3
            For J = I + 1 To UBound(Vung) - 2
                For K = J + 1 To UBound(Vung) - 1
                    For kK = K + 1 To UBound(Vung)
                        M = M + 1
                        Mg(M, 1) = Vung(I, 1) & Vung(J, 1) & Vung(K, 1) & Vung(kK, 1)
                        For mM = 2 To UBound(Vung, 2)
                            If Vung(I, mM) = "" Then
                                If Vung(J, mM) = "" Then
                                    If Vung(K, mM) = "" Then
                                        If Vung(kK, mM) = "" Then
                                            Mg(M, mM) = 0
                                        End If
                                    End If
                                End If
                            End If
                        Next mM
                    Next kK
                Next K
            Next J
        Next I
    Sheets("sheet2").[M5:W500000].ClearContents
    Sheets("sheet2").[M5].Resize(UBound(Mg, 1), UBound(Mg, 2)) = Mg
End Sub
QUOTE]
Bác concogia và các bạn có thể tuỳ biến giúp tính tổng 5 dòng theo code này được không ạ? Xin cảm ơn rất nhiều ạ!
Nhấp chuột vào đây để mở rộng...
 
hcl_pt đã viết:
concogia đã viết:
Má ơi! dữ liệu bài này mà 50 dòng & 1000 cột là máy mình "tèo" luôn. Híc, bó tay, bó tay
Chạy thử code này:
Mã: 
Public Sub Tong()
    Dim Vung, I, J, K, kK, Mg, M, mM
    Vung = Sheets("sheet1").Range(Sheets("sheet1").[A5], Sheets("sheet1").[A50000].End(xlUp)).Resize(, 11)
    ReDim Mg(1 To Application.WorksheetFunction.Combin(UBound(Vung), 4), 1 To UBound(Vung, 2))
        For I = 1 To UBound(Vung) - 3
            For J = I + 1 To UBound(Vung) - 2
                For K = J + 1 To UBound(Vung) - 1
                    For kK = K + 1 To UBound(Vung)
                        M = M + 1
                        Mg(M, 1) = Vung(I, 1) & Vung(J, 1) & Vung(K, 1) & Vung(kK, 1)
                        For mM = 2 To UBound(Vung, 2)
                            If Vung(I, mM) = "" Then
                                If Vung(J, mM) = "" Then
                                    If Vung(K, mM) = "" Then
                                        If Vung(kK, mM) = "" Then
                                            Mg(M, mM) = 0
                                        End If
                                    End If
                                End If
                            End If
                        Next mM
                    Next kK
                Next K
            Next J
        Next I
    Sheets("sheet2").[M5:W500000].ClearContents
    Sheets("sheet2").[M5].Resize(UBound(Mg, 1), UBound(Mg, 2)) = Mg
End Sub
Nhấp chuột vào đây để mở rộng...
Bác concogia và các bạn có thể tuỳ biến giúp tính tổng 5 dòng theo code này được không ạ? Xin cảm ơn rất nhiều ạ!
Nhấp chuột vào đây để mở rộng...

Sửa từ code bài #13 được hông? Hay phải theo bài #14?
Nếu sửa bài #13 thì như vầy, theo bài #14 thì chờ Bác Cò, của ai nấy sửa, xía bậy bị "uýnh phù mỏ".
PHP: 
Public Sub Co_Oi_Co_A()
Dim sArr(), dArr(), I As Long, J As Long, K As Long, N As Long
Dim M As Long, X As Long, Rws As Long, CoL As Long
    sArr = Sheet1.Range("A5:K24").Value2
    Rws = UBound(sArr, 1):      CoL = UBound(sArr, 2)
ReDim dArr(1 To 65000, 1 To CoL)
For I = 2 To Rws - 3
    For M = I + 1 To Rws - 2
        For N = M + 1 To Rws - 1
            For X = N + 1 To Rws
                K = K + 1
                dArr(K, 1) = sArr(1, 1) & sArr(I, 1) & sArr(M, 1) & sArr(N, 1) & sArr(X, 1)
                For J = 2 To CoL
                    If sArr(1, J) + sArr(I, J) + sArr(M, J) + sArr(N, J) + sArr(X, J) = 0 Then
                        dArr(K, J) = 0
                    End If
                Next J
            Next X
        Next N
    Next M
Next I
With Sheet2
    .[A5].Resize(65000, CoL).ClearContents
    .[A5].Resize(K, CoL) = dArr
End With
End Sub
 
Ba Tê đã viết:
Sửa từ code bài #13 được hông? Hay phải theo bài #14?
Nếu sửa bài #13 thì như vầy, theo bài #14 thì chờ Bác Cò, của ai nấy sửa, xía bậy bị "uýnh phù mỏ".
PHP: 
Public Sub Co_Oi_Co_A()
Dim sArr(), dArr(), I As Long, J As Long, K As Long, N As Long
Dim M As Long, X As Long, Rws As Long, CoL As Long
    sArr = Sheet1.Range("A5:K24").Value2
    Rws = UBound(sArr, 1):      CoL = UBound(sArr, 2)
ReDim dArr(1 To 65000, 1 To CoL)
For I = 2 To Rws - 3
    For M = I + 1 To Rws - 2
        For N = M + 1 To Rws - 1
            For X = N + 1 To Rws
                K = K + 1
                dArr(K, 1) = sArr(1, 1) & sArr(I, 1) & sArr(M, 1) & sArr(N, 1) & sArr(X, 1)
                For J = 2 To CoL
                    If sArr(1, J) + sArr(I, J) + sArr(M, J) + sArr(N, J) + sArr(X, J) = 0 Then
                        dArr(K, J) = 0
                    End If
                Next J
            Next X
        Next N
    Next M
Next I
With Sheet2
    .[A5].Resize(65000, CoL).ClearContents
    .[A5].Resize(K, CoL) = dArr
End With
End Sub
Nhấp chuột vào đây để mở rộng...
vÂNG, cảm ơn bác nhiều quá! Bác xem giúp sao khi chạy với khoảng 10 dòng dữ liệu và 500 cột là bị lỗi uot of memory, mặc dù dữ liệu như vậy là không nhiều? (em dùng excel 2015)
 
Lần chỉnh sửa cuối:
hcl_pt đã viết:
vÂNG, cảm ơn bác nhiều quá! Bác xem giúp sao khi chạy với khoảng 10 dòng dữ liệu và 500 cột là bị lỗi uot of memory, mặc dù dữ liệu như vậy là không nhiều? (em dùng excel 2015)
Nhấp chuột vào đây để mở rộng...

Nếu chỉ có 10 dòng thì sửa mấy chỗ này:
ReDim dArr(1 To 65000, 1 To CoL)
............
With Sheet2
.[A5].Resize(65000, CoL).ClearContents
Sửa các số 65000 thành 1000 coi sao.
 
Ba Tê đã viết:
Nếu chỉ có 10 dòng thì sửa mấy chỗ này:
ReDim dArr(1 To 65000, 1 To CoL)
............
With Sheet2
.[A5].Resize(65000, CoL).ClearContents
Sửa các số 65000 thành 1000 coi sao.
Nhấp chuột vào đây để mở rộng...
Bác Ba Tê ơi, em đã làm như bác bảo kiểm tra với 10 dòng 500 cột nhưng vẫn không được ạ! Mục tiêu của em là làm với 50 dòng 500 cột, nếu được như vậy thì tốt quá!
 
hcl_pt đã viết:
Bác Ba Tê ơi, em đã làm như bác bảo kiểm tra với 10 dòng 500 cột nhưng vẫn không được ạ! Mục tiêu của em là làm với 50 dòng 500 cột, nếu được như vậy thì tốt quá!
Nhấp chuột vào đây để mở rộng...

Trước khi gởi bài #18 tôi đã thử rồi mới gởi.
Bạn cứ nói không được mà chẳng đưa cái file không được lên cho mọi người xem thì sao mà biết được.
 
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.
Web KT

Bài viết mới nhất

D
Phân công và sắp xếp lịch trực
2
Trả lời
22
Đọc
495
HUONGHCKT
H
Linh101023
Vấn đề với hàm round
Trả lời
5
Đọc
65
DeTong
D
quangminhici
Tặng Addin Word xuất Mail Merge có chức năng cắt ra nhiều file và gửi mail.
    • Thích
Trả lời
13
Đọc
2K
quangminhici
quangminhici
Nguyễn Duy Tuân
Phiên bản mới Add-in A-Tools v10 (2024)
    • Thích
2
Trả lời
28
Đọc
1K
huhumalu
H
befaint
Chia sẻ tâm tư, xả nỗi lòng
    • Thích
35 36 37
Trả lời
738
Đọc
43K
SA_DQ
SA_DQ
tuanthanhhk1
Nhờ giúp đỡ viết ví dụ lấy dữ liệu có điều kiện
Trả lời
5
Đọc
120
tuanthanhhk1
tuanthanhhk1
B
Căn chỉnh drop-down list trong combobox
Trả lời
3
Đọc
47
ptm0412
ptm0412
D
NHỜ ANH CHỊ EM GIÚP MÌNH LỌC TRÙNG
Trả lời
2
Đọc
60
phuyen89
phuyen89
befaint
[ Python và ứng dụng ] Siêu siêu phẩm đồng bộ giữa Excel và Google Sheets theo thời gian thực
    • Thích
    • Yêu thích
    • Không thích
Trả lời
16
Đọc
636
UltraExcel
U
N
  • Question
Một ý tưởng viết macro VBA tương tác với Google Drive từ Excel
    • Thích
Trả lời
11
Đọc
2K
phuongnam366377
phuongnam366377
văn bn93
VBA các bác giúp
Trả lời
2
Đọc
84
UltraExcel
U
D
  • Question
Sau khi chạy code thì trở về vị trí ban đầu
    • Thích
Trả lời
8
Đọc
136
ptm0412
ptm0412
huuthang_bd
Add-in DeleteVirusMacro - Xóa và ngăn chặn virus macro
    • Thích
    • Yêu thích
    • Chấp nhận
Trả lời
16
Đọc
7K
Phan Thanh Quang
Phan Thanh Quang
J
  • Đã khóa
  • Question
Cần tìm cá nhân thật giỏi thiết kế vba- excel theo yêu cầu.
Trả lời
8
Đọc
138
ongke0711
ongke0711
X
Khắc Phục Tập tin bị lây nhiễm virus VBA
    • Thích
Trả lời
8
Đọc
7K
Phan Thanh Quang
Phan Thanh Quang
Kiều Mạnh
  • Đã khóa
Lấy dữ liệu cổ phiếu từ Website Cafef.vn về Excel
    • Thích
4 5 6
Trả lời
111
Đọc
4K
ptm0412
ptm0412
T
  • Question
viết code trong excel để sắp xếp theo yêu cầu sau đó tách sheet
2
Trả lời
25
Đọc
356
Phuocam
Phuocam
Q
  • Question
lọc lấy text trong cột
Trả lời
6
Đọc
126
DeTong
D
U
VLOOKUP nhiều cột
    • Chấp nhận
Trả lời
18
Đọc
627
Phan Thế Hiệp
Phan Thế Hiệp
Bạn Đoàn
Em Chào AC!. Em nhờ AC tạo UserForm nhập dữ giúp em với ạ.
    • Buồn
Trả lời
3
Đọc
123
Bạn Đoàn
Bạn Đoàn
Xem thêm…

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Back
Top Bottom