[已解决]求助！如何将A列单元格内容引用到G列单元格

xxjjdd0000

问题见附件 Book12.zip (8.01 KB, 下载次数: 24)

2012-8-16 14:53 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

askteller

2012-8-16 15:26

xxjjdd0000 发表于 2012-8-16 15:20
老师，出现错误，就是应用程序错误或定义错误

1. Sub abc()
   
2. Dim arr, i, j, icolumn
   
3. arr = Range("a1").CurrentRegion
   
4. icolumn = Cells(1, 256).End(xlToLeft).Column
   
5. For i = 1 To [G65536].End(3).Row
   
6. For j = 1 To UBound(arr)
   
7. If Cells(i, "g") = arr(j, 1) Then
   
8. Cells(i, icolumn).Offset(, 1) = arr(j, 2)
   
9. Cells(i, icolumn).Offset(, 2) = arr(j, 3)
   
10. Cells(i, icolumn).Offset(, 3) = arr(j, 4)
    
11. End If
    
12. Next j
    
13. Next i
    
14. End Sub
    

复制代码

跳转到最佳答案楼层

askteller

1. Sub abc()
   
2. Dim arr, i
   
3. arr = Range("a1").CurrentRegion
   
4. For i = 1 To [G65536].End(3).Row
   
5. For j = 1 To UBound(arr)
   
6. If Cells(i, "g") = arr(j, 1) Then
   
7. Cells(i, "g").Offset(, 1) = arr(j, 2)
   
8. Cells(i, "g").Offset(, 2) = arr(j, 3)
   
9. Cells(i, "g").Offset(, 3) = arr(j, 4)
   
10. End If
    
11. Next j
    
12. Next i
    
13. End Sub
    

复制代码

这样可以么?

xxjjdd0000

老师，可能是我问题没有说明白，在引用了G列单元格123后面又继续引用。

askteller

xxjjdd0000 发表于 2012-8-16 15:09
老师，可能是我问题没有说明白，在引用了G列单元格123后面又继续引用。

1. Sub abc()
   
2. Dim arr, i, j, icolumn
   
3. arr = Range("a1").CurrentRegion
   
4. icolumn = Range("g1").End(xlToRight).Column
   
5. For i = 1 To [G65536].End(3).Row
   
6. For j = 1 To UBound(arr)
   
7. If Cells(i, "g") = arr(j, 1) Then
   
8. Cells(i, icolumn).Offset(, 1) = arr(j, 2)
   
9. Cells(i, icolumn).Offset(, 2) = arr(j, 3)
   
10. Cells(i, icolumn).Offset(, 3) = arr(j, 4)
    
11. End If
    
12. Next j
    
13. Next i
    
14. End Sub

复制代码

xxjjdd0000

老师，出现错误，就是应用程序错误或定义错误

xxjjdd0000

就是当把G列右边清除后，出现上述错误的。

askteller

xxjjdd0000 发表于 2012-8-16 15:20
老师，出现错误，就是应用程序错误或定义错误

1. Sub abc()
   
2. Dim arr, i, j, icolumn
   
3. arr = Range("a1").CurrentRegion
   
4. icolumn = Cells(1, 256).End(xlToLeft).Column
   
5. For i = 1 To [G65536].End(3).Row
   
6. For j = 1 To UBound(arr)
   
7. If Cells(i, "g") = arr(j, 1) Then
   
8. Cells(i, icolumn).Offset(, 1) = arr(j, 2)
   
9. Cells(i, icolumn).Offset(, 2) = arr(j, 3)
   
10. Cells(i, icolumn).Offset(, 3) = arr(j, 4)
    
11. End If
    
12. Next j
    
13. Next i
    
14. End Sub
    

复制代码

xxjjdd0000

谢谢，已完美运行。