VBA从活动行复制某些列，如果单元格值多次复制并粘贴

Question

enter image description here enter image description here I am a newbie to VBA. I want Excel to (1) copy cells A:Z of the active row, (2) insert one row below the active row, and paste the values of the recently copied cells into the new blank row.

i have two different values in B Column, then I make two lines same value and update B cell value in second values

enter image description here

I will appreciate being taught how to only copy certain cells of active row to paste below. Thank you.

Answer 1

Sub CopyInsertPaste()

Dim Rng As Range
Dim RowNum As Integer

RowNum = ActiveCell.Row

Set Rng = Range("A" & RowNum & ":Z" & RowNum)

With Rng
    .Offset(1, 0).EntireRow.Insert
    .Copy Range("A" & RowNum + 1)
End With

Dim BCell1 As Range
Set BCell1 = Range("B" & RowNum)

Dim BCell2 As Range
Set BCell2 = Range("B" & RowNum + 1)

    If InStr(BCell1.Value, ",") Then
        Dim Text1 As String
        Text1 = Left(BCell1.Value, InStr(1, BCell1.Value, ",") - 1)
        BCell1.Value = Text1
                
        Dim index As Integer
        index = InStr(1, BCell2.Value, ",")
        
        Dim Text2 As String
        Text2 = Right(BCell2.Value, Len(BCell2.Value) - index)
        BCell2.Value = Text2
    End If

End Sub