làm sao để xoá được cột merge

[hoanganh11111]

dạ thầy mấy anh chị cho em hỏi em có cái code như này
em muốn coppy qua xoá luôn ô merge thì lam sao ạ

Sub TaoNgayMoi()
On Error GoTo BaoLoi
Dim TenSheetMoi As String, NgayCu As Date
NgayCu = Range("J2").Value
TenSheetMoi = InputBox("Nhap Ten Sheet Moi")

ActiveSheet.Copy after:=Worksheets(Worksheets.Count)
Worksheets(Worksheets.Count).Name = TenSheetMoi

With Sheets(TenSheetMoi)
.Range("C4:C51,F4:I14").ClearContents
.Range("J2").Value = WorksheetFunction.EDate(NgayCu, 0) + 1
End With
MsgBox "Xong!"
Exit Sub
BaoLoi:
MsgBox "Dat ten sheet sai, vui long nhap lai"
End Sub

 

[Phuocam]

dạ thầy mấy anh chị cho em hỏi em có cái code như này
em muốn coppy qua xoá luôn ô merge thì lam sao ạ

Sub TaoNgayMoi()
On Error GoTo BaoLoi
Dim TenSheetMoi As String, NgayCu As Date
NgayCu = Range("J2").Value
TenSheetMoi = InputBox("Nhap Ten Sheet Moi")

ActiveSheet.Copy after:=Worksheets(Worksheets.Count)
Worksheets(Worksheets.Count).Name = TenSheetMoi

With Sheets(TenSheetMoi)
.Range("C4:C51,F4:I14").ClearContents
.Range("J2").Value = WorksheetFunction.EDate(NgayCu, 0) + 1
End With
MsgBox "Xong!"
Exit Sub
BaoLoi:
MsgBox "Dat ten sheet sai, vui long nhap lai"
End Sub

Thử dùng:

.Range("...").MergeCells = False

.Range("...") là vùng bạn muốn xóa merge.
.

 

[hoanganh11111]

Thử dùng:

.Range("...").MergeCells = False

.Range("...") là vùng bạn muốn xóa merge.

mình thử rồi mà k dc á bạn

 

[VetMini]

mình thử rồi mà k dc á bạn

Câu cú của bạn nó cũng bị "merged" theo à?

 

[batman1]

mình thử rồi mà k dc á bạn

Rút kinh nghiệm:
1. Chưa chắc bạn đã làm đúng. Khi bạn làm sai mà chỉ có "mình thử rồi mà k dc á bạn" thì bố, thậm chí cả cụ tổ của thánh cũng không biết bạn làm sai ở đâu. Hãy tập nói rõ, viết rõ ra.
2. Đừng viết tắt kiểu "k dc". Hãy tôn trọng người đọc.

Thôi thì thử thế này: thứ tự là trước hết phải bỏ gộp ô rồi mới xóa. Không thể làm với thứ tự ngược lại. Nếu xóa mà chưa bỏ gộp ô thì sẽ có lỗi, mà lỗi sẽ bị "giấu" đi do có On Error GoTo BaoLoi.

Tức phải là (trong cụm With ... End With)

.Range("C4:C51,F4:I14").MergeCells = False    ' trước hết phải bỏ gộp ô
.Range("C4:C51,F4:I14").ClearContents    ' sau khi bỏ gộp ô mới xóa được dữ liệu.