- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]Excel如何复制整行到指定位置 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=93320)
-- 发布时间：2016/11/25 9:57:00
-- [求助]Excel如何复制整行到指定位置
如题，有一个工作表，一页44行（有现成模板），我需要计算得到总页数n后，将这44行复制n-1遍，形成n页
我用如下代码：
rr = 44
Dim Rg As MSExcel.Range = Ws.Rows("1:" & CStr(rr))\'选定多行
For p = 2 To n \'共n页
Rg.Copy(Ws.Rows("1:" & CStr(rr)))
Next p
可是结果文字错位了，请教该如何解决？
[此贴子已经被作者于2016/11/25 9:59:39编辑过]
-- 发布时间：2016/11/25 10:12:00
--
Dim App As New MSExcel.Application
try
Dim Wb As MSExcel.Workbook = App.WorkBooks.open("f:\\test.xls")
Dim ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim rg As MSExcel.Range = ws.UsedRange
app.DisplayAlerts = False
rg.Copy
Dim rg2 As MSExcel.Range = ws.Cells(45,1)
Dim n=2 \'复制2遍
For i As Integer = 1 To n
rg2.PasteSpecial()
rg2 = ws.Cells(ws .UsedRange.Rows.Count+1,1)
Next
Wb.Save
Wb.Close
App.Quit
catch ex As Exception
App.Quit
End try
-- 发布时间：2016/11/25 10:16:00
--
我自己的解决方法：
for p = 2 to n
i = rr + 1
Rg.copy(CStr(i) & ":" & CStr(i+rr))
next p
也谢谢“甜甜”！
[此贴子已经被作者于2016/11/25 10:18:28编辑过]