Cần giúp: Thay đổi nội dung Tiêu đề hàng loạt

[xuongrongdat]

Mình nhờ mọi người giúp trường hợp này. Ví dụ:


Mình có 51 bảng, mỗi bảng có 10 cột với 10 tiêu đề cũ, giờ mình muốn Replace All đồng loạt 10 tiêu đề cũ như minh họa hình trên là dòng 3, 6 và 11 thành 10 tiêu đề mới hết như dòng 16 thì mình làm cách nào? Hiện tại mình Replace All từng Tiêu đề ở từng cột, Replace All 10 lần mới xong. Mà còn 8 file giống vậy cho 8 tháng đầu năm nữa lận.

Xin cảm ơn.

 

[CHAOQUAY]

Mình nhờ mọi người giúp trường hợp này. Ví dụ:
View attachment 267753

Mình có 51 bảng, mỗi bảng có 10 cột với 10 tiêu đề cũ, giờ mình muốn Replace All đồng loạt 10 tiêu đề cũ như minh họa hình trên là dòng 3, 6 và 11 thành 10 tiêu đề mới hết như dòng 16 thì mình làm cách nào? Hiện tại mình Replace All từng Tiêu đề ở từng cột, Replace All 10 lần mới xong. Mà còn 8 file giống vậy cho 8 tháng đầu năm nữa lận.

Xin cảm ơn.

Thử dùng autofilter lọc các dòng tiêu đề cũ rồi xử lý 1 lần xem có được hay không

 

[xuongrongdat]

Thử dùng autofilter lọc các dòng tiêu đề cũ rồi xử lý 1 lần xem có được hay không

Em chưa hiểu ý anh. Xử lý 1 lần cách nào anh?

 

[CHAOQUAY]

Em chưa hiểu ý anh. Xử lý 1 lần cách nào anh?

Bạn gửi 1 file tạm lên xử lý cho tiện

 

[Maika8008]

51 bảng đó ở 51 sheet khác nhau hay ở cùng 1 sheet, bạn?

 

[xuongrongdat]

Bạn gửi 1 file tạm lên xử lý cho tiện

51 bảng đó ở 51 sheet khác nhau hay ở cùng 1 sheet, bạn?

Em ngại gửi file thực tế này vì nó rối quá nên tạo vấn đề như bài #1 cho dễ minh họa.
Nhờ 2 anh xem file thực tế như file đính kèm.
Dòng tiêu đề em cần thay đổi nội dung hàng loạt là dòng 10, 11 đó 2 anh.

 

[Maika8008]

Em ngại gửi file thực tế này vì nó rối quá nên tạo vấn đề như bài #1 cho dễ minh họa.
Nhờ 2 anh xem file thực tế như file đính kèm.
Dòng tiêu đề em cần thay đổi nội dung hàng loạt là dòng 10, 11 đó 2 anh.

Hic! Đưa file lên mà chẳng nói thay tiêu đề bảng nào tại sheet nào bằng tiêu đề gì

 

[VetMini]

Hic! Đưa file lên mà chẳng nói thay tiêu đề bảng nào tại sheet nào bằng tiêu đề gì

Vậy chứ lúc cần than thở thì: "sếp cứ bắt làm mà chẳng nói rõ phải làm thế nào"

 

[xuongrongdat]

Hic! Đưa file lên mà chẳng nói thay tiêu đề bảng nào tại sheet nào bằng tiêu đề gì

À khi mở file lên nó sẽ tự mở ngay sheet em hỏi luôn á anh. Sheet Vòng II CHXD. Dòng 10 và 11. Trên cùng 1 sheet thôi anh.

 

[Maika8008]

À khi mở file lên nó sẽ tự mở ngay sheet em hỏi luôn á anh. Sheet Vòng II CHXD. Dòng 10 và 11. Trên cùng 1 sheet thôi anh.

Thay thông tin thích hợp theo code

Sub XuongRongDat()
Dim arrT1, arrT2, arrC, i&

Application.ScreenUpdating = False
arrT1 = Sheet6.Range("BA10:BK10")
arrT2 = Sheet6.Range("BA12:BK12")
arrC = Array(3, 4, 5, 6, 8, 9, 10, 11, 12, 13, 14)
For i = 1 To UBound(arrT1, 2)
    Sheet6.Range(Sheet6.Cells(1, arrC(i - 1)), Sheet6.Cells(1955, arrC(i - 1))).Replace What:=arrT1(1, i), Replacement:=arrT2(1, i)
Next
Application.ScreenUpdating = True
End Sub

 

[ptm0412]

Em chưa hiểu ý anh. Xử lý 1 lần cách nào anh?

Copy tiêu đề mới
Filter tiêu đề cũ
Select visible cell only (cột A)
Paste

 

[xuongrongdat]

Thay thông tin thích hợp theo code

Sub XuongRongDat()
Dim arrT1, arrT2, arrC, i&

Application.ScreenUpdating = False
arrT1 = Sheet6.Range("BA10:BK10")
arrT2 = Sheet6.Range("BA12:BK12")
arrC = Array(3, 4, 5, 6, 8, 9, 10, 11, 12, 13, 14)
For i = 1 To UBound(arrT1, 2)
    Sheet6.Range(Sheet6.Cells(1, arrC(i - 1)), Sheet6.Cells(1955, arrC(i - 1))).Replace What:=arrT1(1, i), Replacement:=arrT2(1, i)
Next
Application.ScreenUpdating = True
End Sub

Code của anh xài làm sao anh? Em chưa biết cách.

Copy tiêu đề mới
Filter tiêu đề cũ
Select visible cell only (cột A)
Paste

File con (có đính kèm ở bài #6) không làm như cách bác chỉ được. Chắc do Tiêu đề có Merge ô và bên dưới cũng có rất nhiều Merge ô nên lung tung luôn.

 

[ptm0412]

File con (có đính kèm ở bài #6) không làm như cách bác chỉ được. Chắc do Tiêu đề có Merge ô và bên dưới cũng có rất nhiều Merge ô nên lung tung luôn.

Thì unmerge. Nguyên tắc là không merge dữ liệu, chỉ merge báo cáo. Và "đừng tạo dòng trống nữa", câu này tôi cũng có nói ở đâu đó rồi.

 

[Maika8008]

Code của anh xài làm sao anh? Em chưa biết cách.
.

arrT1 = Sheet6.Range("BA10:BK10") vùng chứa tiêu đề cũ
arrT2 = Sheet6.Range("BA12:BK12") vùng chứa tiêu đề mới
arrC = Array(3, 4, 5, 6, 8, 9, 10, 11, 12,...) Là trật tự cột trong tiêu đề bảng của bạn. Cột 6 bị merge nên chiếm 2 cột excel, do đó cột tiếp theo là 8

 

[xuongrongdat]

arrT1 = Sheet6.Range("BA10:BK10") vùng chứa tiêu đề cũ
arrT2 = Sheet6.Range("BA12:BK12") vùng chứa tiêu đề mới
arrC = Array(3, 4, 5, 6, 8, 9, 10, 11, 12,...) Là trật tự cột trong tiêu đề bảng của bạn. Cột 6 bị merge nên chiếm 2 cột excel, do đó cột tiếp theo là 8

Em vẫn chưa mường tượng được trình tự cách làm của anh ra sao luôn á!
Anh thử bên máy tính anh chưa? Nghĩa là anh Replace All 1 lượt Tiêu đề 50 Bảng lương của 50 Cửa hàng luôn đó hả anh?
Anh thông cảm em chưa làm kiểu này bao giờ.

 

[Maika8008]

Em vẫn chưa mường tượng được trình tự cách làm của anh ra sao luôn á!
Anh thử bên máy tính anh chưa? Nghĩa là anh Replace All 1 lượt Tiêu đề 50 Bảng lương của 50 Cửa hàng luôn đó hả anh?
Anh thông cảm em chưa làm kiểu này bao giờ.

Để khi mở máy tính tôi gửi file cho bạn.

 

[Maika8008]

File của bạn. Lưu ý địa chỉ 2 vùng tiêu đề cũ và mới.

P/S: Đã xóa file đính kèm theo yêu cầu của chủ thớt.

 

[VetMini]

Thời buổi bi giờ người ta không merge cells theo chiều ngang nữa.
Nếu cần một tiêu đề cho nhiều ô ngang thì người ta chọn ghi tiêu đề cho một ô (thường là ô đầu) trong nhóm rồi:
- select cả nhóm
- right click > format cells > alignment > horizontal > center across selection

 

[HieuCD]

Em ngại gửi file thực tế này vì nó rối quá nên tạo vấn đề như bài #1 cho dễ minh họa.
Nhờ 2 anh xem file thực tế như file đính kèm.
Dòng tiêu đề em cần thay đổi nội dung hàng loạt là dòng 10, 11 đó 2 anh.

Công khai dữ liệu tiền lương của công ty, bạn đã vi phạm nghiêm trọng nguyên tắc bảo mật của công ty, nên xóa các sheet không cần thiết và thay thế dữ liệu mới, xóa tên và logo công ty ...
Nên nói rỏ thay thế dòng nào bằng dữ liệu gì của dòng nào ...

 

[VetMini]

Công khai dữ liệu tiền lương của công ty, bạn đã vi phạm nghiêm trọng nguyên tắc bảo mật của công ty, nên xóa các sheet không cần thiết và thay thế dữ liệu mới, xóa tên và logo công ty ...
Nên nói rỏ thay thế dòng nào bằng dữ liệu gì của dòng nào ...

Công ty/Cơ quan nào mà hời hợt thật. Đưa người ta vào việc với dữ liệu nhạy cảm mà không có qua một bước huấn luyện về ý thức bảo mật.

Đương nhiên có huấn luyện thì lúc muốn người ta vẫn có khả năng vi phạm. Nhưng lúc này là vi phạm có ý thức.