[已解决]求保存代码

trifhv

求VBA保存代码，高手们帮下谢谢！

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-1-4 12:43

1. Sub 保存()
   
2.     Dim arr(1 To 4), item
   
3.     arr(1) = [ad4]
   
4.     arr(2) = [h6]
   
5.     arr(3) = [bl5]
   
6.     arr(4) = [bl9]
   
7.    
   
8.     For Each item In arr
   
9.         If Len(item) = 0 Then
   
10.             MsgBox "数据不完整"
    
11.             Exit Sub
    
12.         End If
    
13.     Next
    
14.     With Worksheets("Sheet1")
    
15.         .Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, UBound(arr)) = arr
    
16.         MsgBox "保存成功"
    
17.     End With
    
18. End Sub
    

复制代码

跳转到最佳答案楼层

hwc2ycy

1. Sub 保存()
   
2.     Dim arr(1 To 4), item
   
3.     arr(1) = [ad4]
   
4.     arr(2) = [h6]
   
5.     arr(3) = [bl5]
   
6.     arr(4) = [bl9]
   
7.    
   
8.     For Each item In arr
   
9.         If Len(item) = 0 Then
   
10.             MsgBox "数据不完整"
    
11.             Exit Sub
    
12.         End If
    
13.     Next
    
14.     With Worksheets("Sheet1")
    
15.         .Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, UBound(arr)) = arr
    
16.         MsgBox "保存成功"
    
17.     End With
    
18. End Sub
    

复制代码