选择性复制单元格内容到另一工作表中

白水墨V

各位大神，求助啊！背景：将下图中的工作表选择性粘贴至工作表2中（需命名为对账单），复制红圈内的内容


第一步：在原工作簿中新建工作表，命名位对账单，表头为
range（“A1:B1”）=Array（“日期”，“结算方式”）

第二步：将表1中的结算日期内容复制到新建表2中日期下方（保留原格式）
第三步：（在完成新建表的内容后，将该表另存为一个新的工作蒲，以“对账单模板”&新建表命名）
由于这样的工作簿很多，需要采取类似的操作，小弟想做一个宏，以后可以对文件批量处理，（这些文件所需要复制的单元格区域不固定，有可能这个工作簿复制“A6:A10”,下个工作簿就需要复制“A6：A13”，生命一般是从“A6”单元格开始复制）

下面写一下小弟做的程序，
sub 生成对账单模板（）
dim i as integer
sheets.add after:=worksheets(worksheets.count)
with sheets(sheets.count)
.name="对账单"
.range("A1:B1")=Array（“日期”，“结算方式”）
end with                                                                (这些实现了)
if worksheets(1).cells(6,i)="" then
worksheets(1).range("A6:A" & i).copy_
worksheets(2).range("A2")
i=i+1
end if                                                                          （实现不了！？？？）


end sub


俺是不知道哪里错了  咋都不行

hiall

一般高手会建议你上传附件帮你做，由于我也是初学者，给点建议吧。
1、if worksheets(1).cells(6,i)=""   这句判断的原工作表，也就是有数据的，故这句会始终为false，不会运行。
2、此时1=0，判断cells(6,i)=“”也是false，也不会执行。
3、建议加一个参数last = worksheets(1).[A2000].End(xlUp).Row，判断原始表中最后一行。在下一句copy中就直接可以全部copy过去了。
i=i+1不是这样用的，你并没有构建循环，宏运行一次后，再次运行，会回复到0

白水墨V

hiall 发表于 2015-3-21 15:27
一般高手会建议你上传附件帮你做，由于我也是初学者，给点建议吧。
1、if worksheets(1).cells(6,i)=""    ...

谢谢，很有帮助。由于公司文件是加密的，所以附件上传不了。以后会注意的。

jpj123

1. Sub 生成对账单模板()
   
2. Dim i As Integer
   
3. Sheets.Add after:=Worksheets(Worksheets.Count)
   
4. With Sheets(Sheets.Count)
   
5. .Name = "对账单"
   
6. .Range("A1:B1") = Array("日期", "结算方式") '
   
7. End With
   
8. i = Worksheets(1).UsedRange.Rows.Count
   
9. If Worksheets(1).Cells(6, i) = "" Then
   
10. Worksheets(1).Range("A6:A" & i).Copy Sheets("对账单").Range("A2")
    
11. End If '                                                                          （实现不了！？？？）
    
12. Sheets("对账单").Copy
    
13. ActiveWorkbook.Close True, ThisWorkbook.Path & "\对账单模板-新建表.xlsx"
    
14. 
    
15. End Sub
    

复制代码

jpj123

根据你的意思大概做了个雏形，具体要求你也没说清楚，自己修改下吧!

白水墨V

jpj123 发表于 2015-3-21 17:18
根据你的意思大概做了个雏形，具体要求你也没说清楚，自己修改下吧!

谢谢，您做的程序很好，很强大。再次感谢大神。

yaroslav

copy  是不是要加上 destination:=

zhangru2199

帮忙解决问题呀http://club.excelhome.net/thread-1426461-1-1.html