Public Sub iSub()
Dim r&, r0&, c%, c0%, c1%
r0 = 1 '开始的行位置
c0 = Range("A1").Column '复制的列位置
c1 = Range("C1").Column '粘贴的列位置
For r = r0 To Cells(65536, c0).End(xlUp).Row
c = Cells(r, 256).End(xlToLeft).Column
If c < c1 Then c = c1 Else c = c + 1
Cells(r, c).Value = Cells(r, c0).Value
Next
End Sub
我们常常要将企业的名称输入到表格中，为了保持名称的一致性，利用“数据有效在D列后面插入两个空列（E、F列）然后根据表中已有结果“D列”的
相信用函数公式比控件方便得多。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024