Hỏi cách tạo tiêu đề lặp lại trong excel

[quyennhi]

Xin hỏi các anh chị cách tạo tiêu đề lặp lại tại mỗi dòng trong excel. Tôi thường làm thủ công rất mất thời gian. Xin các anh chị hướng dẫn cách làm tự động. Xin cám ơn.

 

[Hai Lúa Miền Tây]

Xin hỏi các anh chị cách tạo tiêu đề lặp lại tại mỗi dòng trong excel. Tôi thường làm thủ công rất mất thời gian. Xin các anh chị hướng dẫn cách làm tự động. Xin cám ơn.

Bạn dùng code này nhé:

Sub tieude()
Dim r As Long
    For r = Cells(Rows.Count, 1).End(xlUp).Row To 3 Step -1
        If Cells(r, 1) <> Cells(r - 1, 1) Then Rows(r).Insert Shift:=xlDown
        If Cells(r, 1) = vbNullString Then
            Range("A1:G1").Copy Destination:=Cells(r, 1)
        End If
    Next r
End Sub

Bạn tham khảo thêm file đính kèm nha
Thân

 

[ndu96081631]

Dùng InputBox sẽ tùy biến hơn

Sub Test()
  Dim Des As Range, i As Long
  On Error GoTo Thoat
  With Application.InputBox("Chon vung du lieu", Type:=8)
    If .Cells Is Nothing Then GoTo Thoat
    Set Des = Application.InputBox("Chon noi dat ket qua", Type:=8)
    Application.ScreenUpdating = False
    For i = 2 To .Rows.Count
      Union(.Resize(1), .Offset(i - 1).Resize(1)).Copy
      Des.PasteSpecial
      Set Des = Des.Offset(2)
    Next i
  End With
Thoat:
  Application.CutCopyMode = False
  Application.ScreenUpdating = True
End Sub

 

[cadafi]

Xin hỏi các anh chị cách tạo tiêu đề lặp lại tại mỗi dòng trong excel. Tôi thường làm thủ công rất mất thời gian. Xin các anh chị hướng dẫn cách làm tự động. Xin cám ơn.

Dữ liệu lưu tại sheet(Data), báo cáo sẽ in tại sheet (Report) --> thỏa mãn hai loại báo cáo theo yêu cầu của bạn.

Bạn xem file đính kèm nhé.

 

[ndu96081631]

Dữ liệu lưu tại sheet(Data), báo cáo sẽ in tại sheet (Report) --> thỏa mãn hai loại báo cáo theo yêu cầu của bạn.

Bạn xem file đính kèm nhé.

2 cái báo cáo này chỉ khác nhau có 1 dòng phân cách, vậy tôi nghĩ chỉ cần viết 1 sub là đủ!
Dạng vầy:
Sub Report(Rp As Boolean)
Nếu Rp = True thì cách 1 dòng, ngược lại thì không cách dòng
Đại khái là thế (đở mất công viết thành 2 sub)
Còn không có thể khai báo Rp As Long càng tốt ---> Muốn cách bao nhiêu dòng có bấy nhiêu

 

[thâokh]

tạo tiêu đề xen kẽ

Bạn dùng code này nhé:

Sub tieude()
Dim r As Long
    For r = Cells(Rows.Count, 1).End(xlUp).Row To 3 Step -1
        If Cells(r, 1) <> Cells(r - 1, 1) Then Rows(r).Insert Shift:=xlDown
        If Cells(r, 1) = vbNullString Then
            Range("A1:G1").Copy Destination:=Cells(r, 1)
        End If
    Next r
End Sub

Bạn tham khảo thêm file đính kèm nha
Thân

Ban oi minh muon tao tieu de voi nhieu dong hon thi lam sao thay doi o vi tri Range ("A1:G1”), minh load file cua ban ve nhung khong biet lam the nao de chinh code

 

[tungnguyen_kt]

Ban oi minh muon tao tieu de voi nhieu dong hon thi lam sao thay doi o vi tri Range ("A1:G1”), minh load file cua ban ve nhung khong biet lam the nao de chinh code

Mới nhìn thấy tưởng bạn viết code. Nhìn kỹ lại thấy bạn viết tiếng việt mà hỏng có dấu.
Lần sau viết bài có dấu nha bạn.

 

[halay6782009]

Chào các anh chị , em cảm ơ n các anh chị râất nhiều vì bài viết hữu ích này
Em đã tham khảo bài viết của các anh chị mà ko đc hiểu lắm, code đó có thể sử dụng như thế nào và muốn thay đổi nó thì phải làm sao ah. Vì nhiều khi em muốn lặp lại tiêu đề bao gồm 3 hoặc 4 dòng em ko biết phải làm như thế nào. Hoặc khi em làm việc trên 1 máy tính khác thì muốn làm đc và viết code vào thì phải làm như thế nào ah?
Mong các anh chị chỉ dẫn thêm ah, cho cả word 2007 nữa thì càng tốt ah
Em cảm ơn anh chị nhiều ah. Em ko biết về phần này nên rất mong được mọi người giúp đỡ ah

 

[emv]

chào các anh chị!
em đã đọc và tham khảo hướng dẫn cách tạo tiêu đề xen kẽ giữa các dòng trong excel của các bài viết nhưng không biết làm thế nào để có thể sử dụng code. em đọc không hiểu. mong các anh chị giúp đỡ vì em cũng đang rất cần thông tin này.
cám ơn nhiều!

 

[gaconcr]

Mấy anh chị viết giúp em cái code lặp lại tiêu đề cho bài excel này giúp với ,nếu có thêm hướng dẫn thì em cảm ơn nhiều