[已解决]多数连成一个单元格元素的问题

dfshm

附件 连数附件.rar (135.92 KB, 下载次数: 6)

2014-3-4 07:28 上传

点击文件名下载附件
谢谢！

最佳答案

月排行榜 / 总排行榜

wayy

2014-3-4 08:03

1. 
   
2. Sub hb()
   
3. Dim i, mrow, mcol As Long
   
4. Dim Str As String
   
5. Columns(19).ClearContents
   
6. For i = 1 To [a65536].End(xlUp).Row
   
7.   For mcol = 1 To 9
   
8.     If Cells(i, mcol).Interior.ColorIndex = 6 Then
   
9.       Str = Str & "-" & Cells(i, mcol)
   
10.     End If
    
11.   Next
    
12.   Cells(i, 19) = Mid(Str, 2, 99)
    
13.   Str = ""
    
14. Next
    
15. End Sub
    

复制代码

跳转到最佳答案楼层

baksy

标颜色的原则（规律？基准？算法？）是什么？

wayy

1. 
   
2. Sub hb()
   
3. Dim i, mrow, mcol As Long
   
4. Dim Str As String
   
5. Columns(19).ClearContents
   
6. For i = 1 To [a65536].End(xlUp).Row
   
7.   For mcol = 1 To 9
   
8.     If Cells(i, mcol).Interior.ColorIndex = 6 Then
   
9.       Str = Str & "-" & Cells(i, mcol)
   
10.     End If
    
11.   Next
    
12.   Cells(i, 19) = Mid(Str, 2, 99)
    
13.   Str = ""
    
14. Next
    
15. End Sub
    

复制代码

dfshm

wayy 发表于 2014-3-4 08:03

老师您好，谢谢您帮助。有个小问题，不知有没有办法解决。即当出现能变为  日期  的两个或三个数时，返回的结果是乱码。如下图：




第一个是5  22    这两个数如果单独输入在一个单元格里，它会成为5月22日。在这里，执行代码后，成了乱码。

gaoshuichang1

把“-”换成别的符号，如“\"