Cách thêm 1 dòng vào ngay sau dòng trên (1 người xem)

[casino.vp]

Em chào anh chị, em có vấn đề muốn hỏi là, em có danh sách bệnh nhân ( file đính kèm), nhưng em muốn chèn thêm sau mỗi 1 hàng đấy nữa là 1 hàng trống, thì làm thế nào ạ. để dòng trên là của người nhân viên nhập, dòng sau để em muốn cho giám sát xem lại có nhập đúng không ạ, nên cần thêm sau mỗi hàng của bệnh nhân là thêm 1 hàng trống nữa,

Thanks anh chi

 

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

Em chào anh chị, em có vấn đề muốn hỏi là, em có danh sách bệnh nhân ( file đính kèm), nhưng em muốn chèn thêm sau mỗi 1 hàng đấy nữa là 1 hàng trống, thì làm thế nào ạ. để dòng trên là của người nhân viên nhập, dòng sau để em muốn cho giám sát xem lại có nhập đúng không ạ, nên cần thêm sau mỗi hàng của bệnh nhân là thêm 1 hàng trống nữa,

Thanks anh chi

Bạn xem clip tôi đưa lên ở file đính kèm nhé

 

[comet_1701]

Em chào anh chị, em có vấn đề muốn hỏi là, em có danh sách bệnh nhân ( file đính kèm), nhưng em muốn chèn thêm sau mỗi 1 hàng đấy nữa là 1 hàng trống, thì làm thế nào ạ. để dòng trên là của người nhân viên nhập, dòng sau để em muốn cho giám sát xem lại có nhập đúng không ạ, nên cần thêm sau mỗi hàng của bệnh nhân là thêm 1 hàng trống nữa,

Thanks anh chi

Private Sub Worksheet_Change(ByVal Target As Range)
Dim cll As Range


If Target.Column = 2 Then
    For Each cll In Target
        If cll.Value <> "" Then
            cll.Offset(1, 0).EntireRow.Insert
        End If
    Next
End If
End Sub

Bạn thử dùng sự kiện xem sao

 

[ChanhTQ@]

Thêm 1 tham khảo nữa cho bạn để thêm fần vui vẻ!

Option Explicit
Sub Tang1Dòng()
 Dim Arr()
 Dim Rws As Long, J As Long
 
 Rws = [B3].CurrentRegion.Rows.Count
 ReDim dArr(1 To 2 * Rws, 1 To 2)
 Arr = [a3].Resize(Rws, 2).Value
 For J = 1 To UBound(Arr())
    dArr(2 * J - 1, 1) = Arr(J, 1)
    dArr(2 * J - 1, 2) = Arr(J, 2)
 Next J
 [a3].Resize(2 * Rws, 2) = dArr()
End Sub

 

[SA_DQ]

Thêm 1 macro nữa cho vui cửa nhà!

Option Explicit
Sub Macro1()
 Dim Rws As Long, J As Long
    
 Rws = Cells(Cells.Rows.Count, "A").End(xlUp).Row
 Columns("A:A").Insert Shift:=xlToRight             'Thêm Cot [A:A]'
 [A2].FormulaR1C1 = "GPE"
 ReDim Arr(1 To 3 * Rws, 1 To 1)
 For J = 3 To Rws                                   'Tao Mang Du Lieu Tang Dàn'
    Arr(J - 2, 1) = Right("0000" & CStr(J), 5) & "A"
    Arr(Rws + J - 4, 1) = Right("0000" & CStr(J), 5) & "B"
 Next J
 [A3].Resize(2 * J).Value = Arr()                   'Chép Mang DL Vô Cot Tróng'
 [A3].CurrentRegion.Sort Key1:=Range("A3"), Order1:=xlAscending, Header:=xlGuess, _
    OrderCustom:=1, MatchCase:=False                'Sáp Xép Theo Cot [A:A]'
 Columns("A:A").Delete                              'Xóa Cot [A:A] Da Thêm'
End Sub