不同长度的行，末尾添加两列固定内容

from伦敦郊区

不同长度的行，末尾添加两列固定内容

small_small

1. Sub test()
   
2.     Dim k, ir, rng As Range
   
3.     ir = Cells(Rows.Count, 1).End(3).Row
   
4.     For k = 2 To ir
   
5.         Set rng = Range("a" & k).End(2)
   
6.         rng.Offset(0, 1) = "鼠"
   
7.         rng.Offset(0, 2) = "牛"
   
8.     Next k
   
9. End Sub

复制代码

ZHLK

Sub demo()
    For i = 2 To Range("a65320").End(xlUp).Row
        a = Cells(i, 1).End(xlToRight).Column
        Cells(i, a + 1) = "固定内容1"
        Cells(i, a + 2) = "固定内容2"
    Next i
End Sub

supermouse24

逻辑
1.确定要输入的内容
2.寻找需要输入的位置
3.按照要求输入有空位的地方

Sub 添加固定内容()
    With ActiveSheet
        text1 = InputBox("添加的内容1")
        text2 = InputBox("添加的内容2")
        arr = .[a1].CurrentRegion.Value
        For irow = 2 To UBound(arr, 1)
            For icol = 1 To UBound(arr, 2) + 2
                If .Cells(irow, icol) = "" Then
                    .Cells(irow, icol) = text1
                    .Cells(irow, icol + 1) = text2
                    Exit For
                End If
            Next
        Next
    End With
End Sub

zlzz1971

WPS下运行

比翼双飞880717

=TEXTSPLIT(TEXTJOIN(";",,BYROW(A2:E5,LAMBDA(x,TEXTJOIN(",",,x,"鼠,牛")))),",",";",,,"")