[已解决]诚求写个小代码

simonshaw

求一段代码，让单元格SJ184=TE177&TF177&TG177&TH177...一直下去，这个列的数量由LT30单元格的数值决定。如果LT30=85，上面那个公式的总列数就是85。LT30最好不限制最大数。达到2000都有可能。我用的是07版，列是够用的

诚请大师写个代码，先谢谢了！

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-4-30 17:10

我没测试，不好意思。

1. Sub test()
   
2.     Dim rg As Range, r As Range
   
3.     Dim str$
   
4.     Dim i As Long
   
5.     On Error GoTo ErrorCheck
   
6.     If VBA.IsNumeric([lt30]) And Len([lt30]) > 0 Then
   
7.         i = [lt30]
   
8.         If i > 0 Then
   
9.             Set rg = Range("te177").Resize(, i)
   
10.             For Each r In rg
    
11.                 str = str & r.Value
    
12.             Next
    
13.             [sj184] = str
    
14.             Exit Sub
    
15.         End If
    
16.     End If
    
17.     MsgBox " 单元格 LT30数据不合乎要求"
    
18.     Exit Sub
    
19. ErrorCheck:
    
20.     MsgBox Err.Number & vbCrLf & _
    
21.             Err.Description, vbCritical
    
22. End Sub

复制代码

跳转到最佳答案楼层

hwc2ycy

你要注意到超长的情况。

Sub test()
    Dim rg As Range, r As Range
    Dim str
    Dim i As Long
   
    If VBA.IsNumeric([lt30]) And Len([lt30]) > 0 Then
        i = [lt30]
        If i > 0 Then
            Set rg = Range("te177").Resize(i)
            For Each r In rg
                str = str & rg.Value
            Next
            [sj184] = str
            Exit Sub
        End If
    End If
    MsgBox " 单元格 LT30数据不合乎要求"
End Sub

hwc2ycy

1. Sub test()
   
2.     Dim rg As Range, r As Range
   
3.     Dim str
   
4.     Dim i As Long
   
5.     On Error GoTo ErrorCheck
   
6.     If VBA.IsNumeric([lt30]) And Len([lt30]) > 0 Then
   
7.         i = [lt30]
   
8.         If i > 0 Then
   
9.             Set rg = Range("te177").Resize(i)
   
10.             For Each r In rg
    
11.                 str = str & rg.Value
    
12.             Next
    
13.             [sj184] = str
    
14.             Exit Sub
    
15.         End If
    
16.     End If
    
17.     MsgBox " 单元格 LT30数据不合乎要求"
    
18.     Exit Sub
    
19. ErrorCheck:
    
20.     MsgBox Err.Number & vbCrLf & _
    
21.             Err.Description, vbCritical
    
22. End Sub

复制代码

simonshaw

hwc2ycy 发表于 2013-4-30 16:59

上面代码显示类型不匹。是什么问题呢

hwc2ycy

你看看是哪一行出错了

hwc2ycy

我没测试，不好意思。

1. Sub test()
   
2.     Dim rg As Range, r As Range
   
3.     Dim str$
   
4.     Dim i As Long
   
5.     On Error GoTo ErrorCheck
   
6.     If VBA.IsNumeric([lt30]) And Len([lt30]) > 0 Then
   
7.         i = [lt30]
   
8.         If i > 0 Then
   
9.             Set rg = Range("te177").Resize(, i)
   
10.             For Each r In rg
    
11.                 str = str & r.Value
    
12.             Next
    
13.             [sj184] = str
    
14.             Exit Sub
    
15.         End If
    
16.     End If
    
17.     MsgBox " 单元格 LT30数据不合乎要求"
    
18.     Exit Sub
    
19. ErrorCheck:
    
20.     MsgBox Err.Number & vbCrLf & _
    
21.             Err.Description, vbCritical
    
22. End Sub

复制代码

hwc2ycy

还是有个漏了，你用这个测

1. Sub test()
   
2.     Dim rg As Range, r As Range
   
3.     Dim str$
   
4.     Dim i As Long
   
5.     On Error GoTo ErrorCheck
   
6.     If VBA.IsNumeric([lt30]) And Len([lt30]) > 0 Then
   
7.         i = [lt30]
   
8.         If i > 0 Then
   
9.             Set rg = Range("te177").Resize(, i)
   
10.             str = "'"
    
11.             For Each r In rg
    
12.                 str = str & r.Value
    
13.             Next
    
14.             [sj184] = str
    
15.             Exit Sub
    
16.         End If
    
17.     End If
    
18.     MsgBox " 单元格 LT30数据不合乎要求"
    
19.     Exit Sub
    
20. ErrorCheck:
    
21.     MsgBox Err.Number & vbCrLf & _
    
22.             Err.Description, vbCritical
    
23. End Sub

复制代码

simonshaw

hwc2ycy 发表于 2013-4-30 17:11
还是有个漏了，你用这个测

谢谢大师了，两个测试都对，我刚才已经把上面的设为最佳了，那我就用下面这个最新的吧

hwc2ycy

simonshaw 发表于 2013-4-30 17:19
谢谢大师了，两个测试都对，我刚才已经把上面的设为最佳了，那我就用下面这个最新的吧

上面的如果单元格全是数字的话，结果就会是科学计数法了。
如果是文本的话，倒无碍。

simonshaw

当文本处理了，两个结果都对的，第二个多了个逗号，不过用不着，还是第一个适用些