[已解决]替代代码：越简单越好

fangniuji

帮忙：写一个代码：假设C列有数据，就取代A列数据，并把C，B列数据删除。假设C列没数据，B列有数据，就用B列数据替代A列数据，并把B列数据删除，运行之前提示确认结果就代替A列原数据源

最佳答案

月排行榜 / 总排行榜

dsmch

2014-5-6 20:00

………………

跳转到最佳答案楼层

dsmch

1. Sub Macro1()
   
2. Dim arr, brr, i&, zf$
   
3. arr = ActiveSheet.UsedRange
   
4. ReDim brr(1 To UBound(arr), 1 To 1)
   
5. For i = 1 To UBound(arr)
   
6.     If arr(i, 3) <> "" Then
   
7.         brr(i, 1) = arr(i, 3)
   
8.     Else
   
9.         If arr(i, 2) <> "" Then brr(i, 1) = arr(i, 2)
   
10.     End If
    
11. Next
    
12. zf = MsgBox("是否替换数据源？", vbYesNo)
    
13. If zf = vbYes Then
    
14.     ActiveSheet.UsedRange.ClearContents
    
15.     Range("a1").Resize(UBound(brr)) = brr
    
16. Else
    
17.     Exit Sub
    
18. End If
    
19. End Sub
    

复制代码

dsmch

………………

fangniuji

dsmch 发表于 2014-5-6 20:00
………………

C 列没数据时会报错，如果C B列没数据时再提示没数据替代，谢谢

dsmch

用实际数据说明问题

fangniuji

dsmch 发表于 2014-5-7 11:38
用实际数据说明问题

如果A列没数据：再做个提示，A列没数据，谢谢！如果没有会报错,如果BC列没资料，A列有，提示没有替代资料。谢谢

fangniuji

fangniuji 发表于 2014-5-7 12:06
如果A列没数据：再做个提示，A列没数据，谢谢！如果没有会报错,如果BC列没资料，A列有，提示没有替代资 ...

A 列没数据。报错

dsmch

Sub Macro1()
On Error Resume Next
Dim arr, brr, i&, zf$
arr = ActiveSheet.UsedRange
ReDim brr(1 To UBound(arr), 1 To 1)
For i = 1 To UBound(arr)
    If arr(i, 3) <> "" Then
        brr(i, 1) = arr(i, 3)
    Else
        If arr(i, 2) <> "" Then brr(i, 1) = arr(i, 2)
    End If
Next
zf = MsgBox("是否替换数据源？", vbYesNo)
If zf = vbYes Then
    ActiveSheet.UsedRange.ClearContents
    Range("a1").Resize(UBound(brr)) = brr
Else
    Exit Sub
End If
End Sub

fangniuji

dsmch 发表于 2014-5-8 05:20
Sub Macro1()
On Error Resume Next
Dim arr, brr, i&, zf$

谢谢你，谢谢。如果A列有数据，B，C没数据，能不能再加个提示：没有替代数据，就不执行代码。谢谢