[已解决]求助：隔行插入，且复制某一单元格的内容到新行

善良的人类

上清宫主 发表于 2012-11-29 11:33
改自4楼
Sub 隔行插入3()
Dim t1, t2, t3, x

你给的还是不大对呢，你复制的是 A1的值，所以我的出来的结果就是 隔行插入后 的字符串全部都挤到A列了  但实际上拷贝的应该是A行 整行的值，这样的出来的结果才会居中对齐

善良的人类

zjdh 发表于 2012-11-29 10:14
40k的可以在2007版运行

已在您的方案的基础上做了修改，现在已经完全能满足要求，多谢哦！！

贴上代码——
Sub test()
  S = InputBox("请输入插入行的起始行序号", "参数选择", 5)
  T = InputBox("请输入插入行的终止行序号", "参数选择", 20003)
  W = InputBox("请输入要复制的单元格", "参数选择", "A3")
  If S = "" Or T = "" Or W = "" Then Exit Sub
  For I = T To S Step -1
    Rows(I).Insert Shift:=xlDown
    Range(W).Copy Cells(I, 1)
    Range("A" & I & ":D" & I).Merge
    Range("A" & I & ":C" & I).HorizontalAlignment = xlCenter
  Next
End Sub