
excel
VBASub 姓名()Dim IDim x As Longx = Range("C65536").End(xlUp).RowFor I = 2 To Range("H65536").End(xlUp).Row Cells(x + 1, "C") = Cells(x + 1, "C") & "," & Cells(I, "H")NextEnd Sub另外,您还可以使用一个名为"姓名"的按钮或宏来触发该VBA代码。这样做可以方便地在需要时执行该操作。如果您希望根据单元格选择范围来执行该操作,可以添加以下代码:VBAPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)Dim tr, tctr = Target.Rowtc = Target.ColumnIf tr >= 2 And tc = 8 Then姓名End IfEnd Sub请注意,在上述代码中,“姓名”指代您希望显示或添加的文本。Copyright © 2025 IZhiDa.com All Rights Reserved.
知答 版权所有 粤ICP备2023042255号