Kết quả tìm kiếm

Không ai làm ăn gì kỳ cục như vầy, trừ khi cố tình thể hiện hoặc thực hiện âm mưu gì đó. Cái đoạn code chèn code tự động thì vọc chơi cho vui, chứ thực tế không ai đem ứng dụng vào công việc, nhất là nhét vô cái sự kiện của excel. Bỏ đi

Mình vô tình lướt qua bài của bạn, và đọc 1 vài bài phản hồi. Cũng ngứa nghề nên mạo muội thêm chút quan điểm cá nhân. Theo mình thì ngôn ngữ không có chuyện đúng tuyệt đối hay sai hoàn toàn. Ngôn ngữ dùng để tương tác, phải tùy từng trường hợp mà xài thôi. Sếp của bạn lãnh lương cao hơn bạn, có...

Thấy bài này cũng hay hay nên thử 1 cách code cho vui để vận động não tí Sub Tach_Sheet() Dim sArr(), i As Long, Res(), k As Long, j As Long, TieuDe As Range With Sheets("File 1") .Range("B1").CurrentRegion.Sort .Range("B1"), Header:=xlYes sArr = .Range("B1", .Range("B" &...

Giờ thì hiểu rồi. Chỉ cần tách ra 4 sheet, bao nhiều dòng cũng được, baonhiêu mã cũng được, chỉ cần vét hết thông tin của 1 mã về chung với nhau. Khó Mình đề nghị bạn nên sort dữ liệu trước theo mã, rồi ước chừng tách ra thủ công là gọn nhất

Bạn đọc kỹ lại những gì bạn viết xem có mâu thuẩn không. Xác định lại từng phần: 1. có phải trong sheet File 1 có khoảng 80 000 dòng, chứa khoảng 2000 mã khác nhau hay không 2. Vậy 2000 mã này sẽ được nằm riêng ở các sheet

File của bạn có 2000 mã, vậy làm sao tách ra 2000 sheet đây? Bạn có từng nghĩ qua chưa?

Bạn chọn hết dữ liệu Sau đó gõ Ctrl +F Trong hộp Find gõ (*) Trong hộp Replace không nhập gì Nhấp chọn Replace All

Vấn đề này cũng xảy ra ở cty mình. Lúc đầu cũng điên cái đầu, nhưng riết rồi cũng quen dần

Để có thể viết lại bài thì cũng đã hơi vật vã 1 chút

Thì dùng hàm Sumifs là được rồi, cần gì phải dùng code Sub Test3() Dim sArr(), dArr(), i As Long, sNgay(), n As Long, k As Long, Tmp As String Dim DicNgay As Object, Dic As Object, Col As Long, x As Long Set Dic = CreateObject("scripting.dictionary") Set DicNgay =...

Chỉ có việc copy cái cột chứa dữ liệu vào 1 sheet rồi gởi lên mà không làm được thì còn làm được gì tốt hơn? Nhìn lướt qua thì cũng không đến nổi quá khó. Tuy nhiên không biết ông bà nào đã tạo ra 1 loại dữ liệu nguồn đáng kính nể. Bái phục thiệt đó.

Chắc đại loại thế này. Cũng đang rảnh rỗi

VBA rất không hài lòng với thư mục hoặc tên file bằng tiếng việt có dấu, mặc dù VBA có thể xử lý được nhưng ít nhiều cũng sẽ không trơn tru. Nếu có thể thì nên sử dụng tiếng Anh hoặc tiếng Việt không dấu

Biển dốt mênh mông, quay đầu là bờ. Không nên nhé

Việc bố trí dữ liệu hơi kỳ kỳ rồi. Text và Number không nên lẫn vào nhau như thế.

Bạn gởi dữ liệu lên đi, mình ngồi làm thủ công dùm cho. Tết rồi nên cũng đang rảnh.

Sub Xoa_Dong() Dim sArr(), dArr(), k As Long, i As Long, ii As Long sArr = Range("A1", Range("A" & Rows.Count).End(3)).Resize(, 2).Value ReDim dArr(1 To UBound(sArr), 1 To UBound(sArr, 2)) For i = 1 To UBound(sArr) - 4 Step 10 For ii = 0 To 5 k = k + 1 dArr(k, 1) = sArr(i +...

Ủa có thấy hàm nào trong file đâu?

Vậy mà bạn cũng không nghĩ ra tại sao hả??? Bạn trỏ chuột phải vào cái nút số 0, tên hiện tại nó là Rectangle 10, sửa lại thành Rectangle 0 là được nhé

bạn thử thêm sự kiện thế này vào sheet BANG NHAN