[已解决]VBA引用合并

对你微笑

各位老师请帮忙看看。谢谢！！ ABC (2).rar (2.18 KB, 下载次数: 9)

2013-2-18 17:52 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

cbg2008

2013-2-18 18:24

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. On Error Resume Next
   
3. Dim RG As Range
   
4. If Not Application.Intersect(Target, Range("F3:F" & Rows.Count)) Is Nothing Then
   
5. If Target.Count = 1 Then
   
6. Target.Offset(0, -3) = Target.Offset(0, -3) & Target.Value
   
7. Else
   
8. For Each RG In Target
   
9. RG.Offset(0, -3) = RG.Offset(0, -3) & RG.Value
   
10. Next
    
11. End If
    
12. End If
    
13. End Sub

复制代码

ABC (2).rar (10.56 KB, 下载次数: 7)

2013-2-18 18:24 上传

点击文件名下载附件

跳转到最佳答案楼层

cbg2008

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. On Error Resume Next
   
3. Dim RG As Range
   
4. If Not Application.Intersect(Target, Range("F3:F" & Rows.Count)) Is Nothing Then
   
5. If Target.Count = 1 Then
   
6. Target.Offset(0, -3) = Target.Offset(0, -3) & Target.Value
   
7. Else
   
8. For Each RG In Target
   
9. RG.Offset(0, -3) = RG.Offset(0, -3) & RG.Value
   
10. Next
    
11. End If
    
12. End If
    
13. End Sub

复制代码

ABC (2).rar (10.56 KB, 下载次数: 7)

2013-2-18 18:24 上传

点击文件名下载附件

对你微笑

cbg2008 发表于 2013-2-18 18:24

谢谢了!已经可以了!

对你微笑

对你微笑 发表于 2013-2-18 20:39
谢谢了!已经可以了!

多谢cbg2008 suye1010 两位老师帮忙.
已经可以了!谢谢!!!