请问如何把F列和G列的数值移到并覆盖E列对应的数据

yinfei8013578

各位老师，学生遇到一个问题，想请老师帮忙。谢谢！附件是我的文件和操作动画。我需要操作的步骤是：把F列和G列的数值移到并覆盖E列同一行的数据，如动画所示。学生不知道用VBA如何材料达到这样的效果，恳请各位老师教教学生。谢谢！ 123.zip (192.87 KB, 下载次数: 3)

2016-7-9 17:32 上传

点击文件名下载附件
演示动画.part3.rar (406.88 KB, 下载次数: 3)

2016-7-9 17:31 上传

点击文件名下载附件
演示动画.part2.rar (500 KB, 下载次数: 3)

2016-7-9 17:31 上传

点击文件名下载附件
演示动画.part1.rar (500 KB, 下载次数: 3)

2016-7-9 17:31 上传

点击文件名下载附件

老司机带带我

1. Sub xx()
   
2.     Dim n&, arr, brr, i&
   
3.     With Sheet1
   
4.         n = .Cells(.Rows.Count, 1).End(xlUp).Row
   
5.         arr = .Range("E2:F" & n)
   
6.         brr = .Range("F2:G" & n)
   
7.         For i = 1 To n - 1
   
8.             If brr(i, 1) <> "" Then
   
9.                 arr(i, 1) = brr(i, 1)
   
10.                 arr(i, 2) = brr(i, 2)
    
11.             End If
    
12.         Next
    
13.          .Range("E2:F" & n) = arr
    
14.          .Columns("G:G").ClearContents
    
15.     End With
    
16. End Sub
    

复制代码