如可在EXCEL中把前五行的内容复制到从第六行开始

Question

如可在EXCEL中把前五行的内容复制到从第六行开始
至十行,一直循环复制,请各位大侠指示!!谢谢!!在线等待!!

Answer 1

用OFFSET(1，0).value一直到OFFSET(5，0).value就可以选中本单元格之前的同列五行内容

Answer 2

假如你现在光标在第六个单元格'j是列号
for i=6  to 10 
  cells(i,j).select
  selection.value=selection.offset(-i+1,j).value
  
next

Answer 3

是这样的,我用程序打开一个XLS文件,里面有一个模板,己做好的,十列五行,
然后我想当我打开XLS时就把这几行复制然后粘贴到接下来的位置,也就是第六行开始那里
你所说的这种我试了一下还是不行呀!!!

Answer 4

试试
Private Sub Command1_Click()
    Dim xlapp As New Excel.Application
    Dim xlbook  As Excel.Workbook
    Dim xlsheet As Excel.Worksheet
    
    xlapp.Caption = "test"
    Set xlbook = xlapp.Workbooks.open("d:\aa.xls")
    Set xlsheet = xlbook.Worksheets(1)
    
    xlapp.Rows("1:5").Select
    
    xlapp.Selection.Cut  '剪切
    'Selection.Copy       复制
    
    xlapp.Rows("6:10").Select
    xlapp.ActiveSheet.Paste
    
    xlapp.Visible = TrueEnd Sub

Answer 5

己经可以了但是如果我要在xlapp.Rows("6:10").Select中的6和10用变量来替代的话好像不行
不过还是多谢谢各位老大！！