Hướng dẫn copy giá trị tại ô Merge

[Ai_Ma_Biet]

Nhờ Anh/Chị hướng dẫn giúp em cách copy giá trị từ ô có Merge sang ô không có Merge với (nằm trên 2 file khác nhau). Làm việc với mấy thằng nhà nước muốn điên mất, nó xuất dữ liệu ra pdf kêu nó gửi excel nó gửi dạng kết xuất có Merge. Phải ngồi tô đen từng ô mới copy và dán được.

 

[Ba Tê]

Nhờ Anh/Chị hướng dẫn giúp em cách copy giá trị từ ô có Merge sang ô không có Merge với (nằm trên 2 file khác nhau). Làm việc với mấy thằng nhà nước muốn điên mất, nó xuất dữ liệu ra pdf kêu nó gửi excel nó gửi dạng kết xuất có Merge. Phải ngồi tô đen từng ô mới copy và dán được.

"Ai mà biết" nó Merge ra sao mà mò.

 

[Ai_Ma_Biet]

"Ai mà biết" nó Merge ra sao mà mò.

Từ file này copy sang file khác.

 

[saobekhonglac]

Nhờ Anh/Chị hướng dẫn giúp em cách copy giá trị từ ô có Merge sang ô không có Merge với (nằm trên 2 file khác nhau). Làm việc với mấy thằng nhà nước muốn điên mất, nó xuất dữ liệu ra pdf kêu nó gửi excel nó gửi dạng kết xuất có Merge. Phải ngồi tô đen từng ô mới copy và dán được.

Đơn giản và nhanh nhất là tô đen hết bảng tính rồi bỏ chức năng Merge rồi copy.

 

[chiendich]

"Ai mà biết" nó Merge ra sao mà mò.

Đúng với cái tên Nickname " Ai Ma Biet" rồi thầy ơi!

 

[Ai_Ma_Biet]

Đơn giản và nhanh nhất là tô đen hết bảng tính rồi bỏ chức năng Merge rồi copy.

Nó còn những dòng, cột trống chứ không có liên tục, phải copy từng ô thì mất thời gian

 

[saobekhonglac]

Nó còn những dòng, cột trống chứ không có liên tục, phải copy từng ô thì mất thời gian

Thì lọc bỏ những dòng trống đi, rồi copy nguyên cột, còn cột trống thì chịu, nhanh hơn tô đen copy cũng rất nhiều rồi. Vì 1 file chỉ copy vài dữ liệu

 

[Ai_Ma_Biet]

Thì lọc bỏ những dòng trống đi, rồi copy nguyên cột, còn cột trống thì chịu, nhanh hơn tô đen copy cũng rất nhiều rồi. Vì 1 file chỉ copy vài dữ liệu

Cám ơn, không có cách nào nhanh hơn nữa hả bạn

 

[Ba Tê]

Cám ơn, không có cách nào nhanh hơn nữa hả bạn

Có file thì có cách dùng VBA xử nó.

 

[saobekhonglac]

Có file thì có cách dùng VBA xử nó.

Nếu mỗi ngày 1 file chỉ copy xong thì không sử dụng nữa, nếu dùng VBA trên file đó thì chỉ sử dụng được 1 lần, có cách nào dùng vba trên file dán giá trị không Bác

 

[Ba Tê]

Nếu mỗi ngày 1 file chỉ copy xong thì không sử dụng nữa, nếu dùng VBA trên file đó thì chỉ sử dụng được 1 lần, có cách nào dùng vba trên file dán giá trị không Bác

Đáp ứng yêu cầu bài #9 mới biết có làm gì được không.

 

[Ai_Ma_Biet]

Có file thì có cách dùng VBA xử nó.

File đây Bác

 

[Ba Tê]

File đây Bác

Tôi khoái làm trên 1 File.
Copy sheet về chung 1 file rồi làm.
Nếu bạn muốn dùng 2 File thì tính sau.

 

[be_09]

File đây Bác

Góp ý cho bạn:
1/ File bạn yêu cầu Copy sao không có cột số hóa đơn và ngày hóa đơn vậy, nếu muốn xem lại số hóa đơn nào đó thì làm cách nào?
2/ Có thể làm vầy:
- Cho 1 nút chọn File của ngày gửi bất kỳ để lấy dữ liệu vào 1 sheet.
- Bỏ Merge và xóa dòng trống, cột trống.
- Lấy dữ liệu vào sheet theo dõi (bỏ qua dòng tổng cộng), ngày kế tiếp lấy dữ liệu vào và gán tiếp theo bên dưới ngày trước.

 

[Ai_Ma_Biet]

Tôi khoái làm trên 1 File.
Copy sheet về chung 1 file rồi làm.
Nếu bạn muốn dùng 2 File thì tính sau.

Anh ơi, sửa giúp em tại sheet GPE cột "Số lượng" trước cột "Số con" với anh. Xin lỗi lúc đầu gửi nhằm.

 

[Ba Tê]

Anh ơi, sửa giúp em tại sheet GPE cột "Số lượng" trước cột "Số con" với anh. Xin lỗi lúc đầu gửi nhằm.

Thay cái cũ bằng cái này:

Public Sub sGpe()
Dim sArr(), dArr(), Tong(1 To 1, 1 To 5)
Dim I As Long, K As Long, R As Long
Tong(1, 1) = "T" & ChrW(7893) & "ng C" & ChrW(7897) & "ng:"
sArr = Sheets("DuLieu").Range("I16", Sheets("DuLieu").Range("Z1000").End(xlUp)).Value
R = UBound(sArr)
ReDim dArr(1 To R, 1 To 5)
For I = 1 To R
    If sArr(I, 1) <> Empty Then
        K = K + 1
        If sArr(I, 1) <> Empty Then
            dArr(K, 1) = sArr(I, 1)
            dArr(K, 2) = sArr(I, 11):   Tong(1, 2) = Tong(1, 2) + sArr(I, 11)
            dArr(K, 3) = sArr(I, 8):    Tong(1, 3) = Tong(1, 3) + sArr(I, 8)
            dArr(K, 4) = sArr(I, 13):   Tong(1, 4) = Tong(1, 4) + sArr(I, 13)
            dArr(K, 5) = sArr(I, 18):   Tong(1, 5) = Tong(1, 5) + sArr(I, 18)
        End If
    End If
Next I
With Sheets("Gpe")
    .Range("C6").Resize(1000, 5).ClearContents
    .Range("C6").Resize(K, 5) = dArr
    .Range("C6").Offset(K).Resize(, 5) = Tong
End With
End Sub