按alt+f11进vba,右键在thisworkbook上插入模块,贴入以下代码Option ExplicitSub 整行写入()Dim i As Integer, c As IntegerDim str As Stringc = ActiveCell.RowFor i = 1 To Range("IV" & c).End(1).Column
str = str & Cells(c, i).Value & IIf(i = Range("IV" & c).End(1).Column, "", ",")Next i'MsgBox strDim fs, fi As Object, fn As Stringfn = ThisW... |