sheet1中的某几个单元格拷贝到sheet2的一个单元格，中间插入“；”号

vivi5959017

从工作薄中的sheet1中的某几个单元格拷贝到sheet2的一个单元格，中间插入“；”号。谁能帮忙完善下代码。要求当Item表从另外一个表中复制数据时，D列单元格的数据应从BOM+ITEM表的H，O,P列对应的三个单元格复制合并过来，且中间插入；。现在代码为拷贝BOM+ITEM表的H列对应单元格。

ppp710715

Item template.rar (29.82 KB, 下载次数: 7)

2014-6-23 17:15 上传

点击文件名下载附件

1. Sub ppp()
   
2.   Dim i%, rg As Range, rr%
   
3.   r = Sheets(2).Cells(Rows.Count, 1).End(3).Row
   
4.   For i = 4 To r
   
5.     With Sheets(2)
   
6.      Set rg = Sheets(1).Cells(Rows.Count, 1).End(3)
   
7.       If .Cells(i, 1) <> "" Then
   
8.         If rg.Row = 2 Then
   
9.           rg.Offset(1, 0).Value = 1
   
10.         Else
    
11.           rg.Offset(1, 0).Value = rg.Value + 1
    
12.         End If
    
13.          rg.Offset(1, 1).Value = .Cells(i, 3)
    
14.          rg.Offset(1, 2).Value = .Cells(i, 7)
    
15.          rg.Offset(1, 3).Value = .Cells(i, 8) & "；" & .Cells(i, 15) & "；" & .Cells(i, 16)
    
16.          rg.Offset(1, 4).Value = .Cells(i, 9)
    
17.          rg.Offset(1, 5).Value = .Cells(i, 11)
    
18.          rg.Offset(1, 6).Value = .Cells(i, 12)
    
19.          rg.Offset(1, 7).Value = .Cells(i, 15)
    
20.          rg.Offset(1, 8).Value = .Cells(i, 16)
    
21.       End If
    
22.     End With
    
23.   Next
    
24. End Sub

复制代码

vivi5959017

详见附件

ppp710715

复制后，BOM+ITEM表中的数据是否要清除？

vivi5959017

ppp710715 发表于 2014-6-23 16:34
复制后，BOM+ITEM表中的数据是否要清除？

谢谢，清除设置需要。我已经添加进去。
If Range("a3") <> "" Then Range("A3:BJ" & ActiveSheet.[A65536].End(xlUp).Row).ClearContents
另外假如 rg.Offset(1, 1).Value = .Cells(i, 3)
         rg.Offset(1, 2).Value = .Cells(i, 7)
         rg.Offset(1, 3).Value = .Cells(i, 8) & "；" & .Cells(i, 15) & "图号；" & .Cells(i, 16)
         rg.Offset(1, 4).Value = .Cells(i, 9)
         rg.Offset(1, 5).Value = .Cells(i, 11)
         rg.Offset(1, 6).Value = .Cells(i, 12)
         rg.Offset(1, 7).Value = .Cells(i, 15)
         rg.Offset(1, 8).Value = .Cells(i, 16)
如果还有offset（1,9-50）对应Cells （i，17-58）这样有没有对应一个简洁的表达？总之非常感谢