Tìm Cột cuối cùng chứa dữ liệu để kẻ viền và Insert Copied vùng có Merge

[Miccpro]

Kính chào các anh chị GPE
Em có dòng tiêu đề của bảng tính (Gồm cả Merge cột và dòng). Điều kiện biết trước chỉ là 1 ô có Merge
Em muốn tìm cột cuối cùng chứa dữ liệu và Insert Copied để tự động kẻ viền.
Vì khó diễn đạt ở đây nên câu hỏi em để trong file excel đính kèm. Mong các anh chị thông cảm
Mong các anh chị giúp đỡ. Em xin cảm ơn!

 

[Cu Tồ]

Đang dùng điện thoại không xem được file nhưng tìm cột cuối cùng thì bạn thử

Col = sheets("Tên sheet cần lấy cột").Range("XFD1").End(xlToLeft).Column

Còn viền và Insert Copied vùng có Merge thì bạn ghi lại macro là biết lệnh mà

 

[Miccpro]

Đang dùng điện thoại không xem được file nhưng tìm cột cuối cùng thì bạn thử

Col = sheets("Tên sheet cần lấy cột").Range("XFD1").End(xlToLeft).Column

Còn viền và Insert Copied vùng có Merge thì bạn ghi lại macro là biết lệnh mà

Cái này không ghi được macro vì tiêu đề chứa các ô có Merge anh ạ

 

[Cu Tồ]

Cái này không ghi được macro vì tiêu đề chứa các ô có Merge anh ạ

Mình chưa xem file nên chưa biết như thế nào

 

[Cu Tồ]

tiêu đề chứa các ô có Merge

Bạn thử sub kẻ viền với dòng cuối nha

Sub Ke_Vien()
Dim col As Long, R As Long, C As Long
With Sheet1
col = .Range("XFD3").End(xlToLeft).Column
C = .Range("B3").Column
R = .Range("B3").Row
        .Range(Cells(R, C), Cells(R, col)).Select
        Selection.Borders.LineStyle = 1
End With
End Sub

 

[PacificPR]

Bạn thử sub kẻ viền với dòng cuối nha

Sub Ke_Vien()
Dim col As Long, R As Long, C As Long
With Sheet1
col = .Range("XFD3").End(xlToLeft).Column
C = .Range("B3").Column
R = .Range("B3").Row
        .Range(Cells(R, C), Cells(R, col)).Select
        Selection.Borders.LineStyle = 1
End With
End Sub

Viết kiểu này sửa 1 phát ăn ngay Bạn nè

Sub Ke_Vien()
    Dim sRng As Range, col As Long
With Sheet1
    Set sRng = .Range("B17")
    col = .Cells(sRng.Row, Columns.Count).End(xlToLeft).Column
    sRng.Resize(, col).Select: Selection.Borders.LineStyle = 1
End With
End Sub

 

[be_09]

Kính chào các anh chị GPE
Em có dòng tiêu đề của bảng tính (Gồm cả Merge cột và dòng). Điều kiện biết trước chỉ là 1 ô có Merge
Em muốn tìm cột cuối cùng chứa dữ liệu và Insert Copied để tự động kẻ viền.
Vì khó diễn đạt ở đây nên câu hỏi em để trong file excel đính kèm. Mong các anh chị thông cảm
Mong các anh chị giúp đỡ. Em xin cảm ơn!

1/ Xóa chữ ví dụ ở A2 đi rồi dùng code sau:

Sub ToVieng()
    Sheet1.Range("B3").CurrentRegion.Borders.LineStyle = 1
End Sub

2/ Copy dòng là như thế nào? Trong File của bạn có B3: L5 chứ không phải 1 dòng. Vì vậy, bạn phải cho ví dụ cụ thể để mọi người hiểu, chứ nêu Copy khơi khơi thì chả ai hiểu.

 

[HieuCD]

Kính chào các anh chị GPE
Em có dòng tiêu đề của bảng tính (Gồm cả Merge cột và dòng). Điều kiện biết trước chỉ là 1 ô có Merge
Em muốn tìm cột cuối cùng chứa dữ liệu và Insert Copied để tự động kẻ viền.
Vì khó diễn đạt ở đây nên câu hỏi em để trong file excel đính kèm. Mong các anh chị thông cảm
Mong các anh chị giúp đỡ. Em xin cảm ơn!

Kẻ viền tiêu đề

Sub ABC()
  Dim Rng As Range, eCol As Long
  With Sheet1
    Set Rng = .Cells(3, Columns.Count).End(xlToLeft).MergeArea
    eCol = Rng.Column + Rng.Columns.Count - 1
    .Range("B3", .Cells(5, eCol)).Borders.LineStyle = 1
  End With
End Sub