求助VBS把三个分开的宏,合并成一个

soykoa

我自己是先到网上去找了代码,然后根据需要,,定义了3个不同的宏,,,现在有点麻烦是每次要分别点三次,,生成对应的数据,,,,,能不能把他们合并到一起,,,,点那个"生成数据"按钮,,,,相应的数据生成列就去索引源数据,,,,如果源列有初始数据,,,就在对应的列生成符合格式的数据,,,谢谢

soykoa

1. Public Sub 自由流通盘()
   
2. 
   
3.   j = 2
   
4.           Do While Cells(j, 1) <> ""
   
5.      
   
6.       txtContent = Cells(j, 1)
   
7.          If Mid(Cells(j, 1), 1, 1) = "6" Then
   
8.          Cells(j, 10) = "SH" & Mid(txtContent, 1, 6)
   
9.          Cells(j, 11) = Cells(j, 2)
   
10.          
    
11.          Else
    
12.         Cells(j, 10) = "SZ" & Mid(txtContent, 1, 6)
    
13.         Cells(j, 11) = Cells(j, 2)
    
14.          
    
15.          End If
    
16.          
    
17.    
    
18.      j = j + 1
    
19.           Loop
    
20. 
    
21. End Sub
    
22. 
    
23. Public Sub 细分行业()
    
24. 
    
25.   j = 2
    
26.           Do While Cells(j, 4) <> ""
    
27.      
    
28.       txtContent = Cells(j, 4)
    
29.          If Mid(Cells(j, 4), 1, 1) = "6" Then
    
30.          Cells(j, 12) = "SH" & Mid(txtContent, 1, 6)
    
31.          Cells(j, 13) = Cells(j, 5)
    
32.          
    
33.          Else
    
34.         Cells(j, 12) = "SZ" & Mid(txtContent, 1, 6)
    
35.         Cells(j, 13) = Cells(j, 5)
    
36.          
    
37.          End If
    
38.          
    
39.    
    
40.      j = j + 1
    
41.           Loop
    
42. 
    
43. End Sub
    
44. 
    
45. Public Sub 主题概念()
    
46. 
    
47.   j = 2
    
48.           Do While Cells(j, 7) <> ""
    
49.      
    
50.       txtContent = Cells(j, 7)
    
51.          If Mid(Cells(j, 7), 1, 1) = "6" Then
    
52.          Cells(j, 14) = "SH" & Mid(txtContent, 1, 6)
    
53.          Cells(j, 15) = Cells(j, 8)
    
54.          
    
55.          Else
    
56.         Cells(j, 14) = "SZ" & Mid(txtContent, 1, 6)
    
57.         Cells(j, 15) = Cells(j, 8)
    
58.          
    
59.          End If
    
60.          
    
61.    
    
62.      j = j + 1
    
63.           Loop
    
64. 
    
65. End Sub

复制代码

这三段是我在网上找的一截代码自己改出来的三段,,,,怎么把这三段合并成一个代码,,,,只需要点一次,,,就分别去生成相应列的数据呢?

soykoa

怎么不能上传附件了呢?

flashercs

1. Public Sub 生成数据()
   
2.   自由流通盘
   
3.   细分行业
   
4.   主题概念
   
5. End Sub

复制代码

不能上传文件,分享到网盘链接

soykoa

还真可以,,,谢谢老师!

Batcher

回复 3# soykoa


如果需要上传文件，可以用阿里云盘或百度网盘。

如果需要上传截图，可以找个图床，例如：
http://bbs.bathome.net/thread-60985-1-1.html