[已解决]关于单元格条件判断与替换符号的问题！求解

ccc919

如图请问如何进行条件判断达到如下图中所表示的状态！

已上传附件
新建 Microsoft Office Excel 工作表.rar (4.53 KB, 下载次数: 6)

2015-5-31 09:28 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

冥王

2015-5-31 10:48

用公式即可，B14输入公式，右拉下拉

1. =SUBSTITUTE(IF(LEN(B3)=1,LEFT(B13,LEN(B13)-1)&B3,B3),",","-")

复制代码

跳转到最佳答案楼层

蓝桥玄霜

1. Sub lqxs()
   
2. Dim Arr, i&, j&, Brr, n&
   
3. Sheet1.Activate
   
4. Brr = [b3].CurrentRegion
   
5. Arr = [b3].Resize(UBound(Brr), 28)
   
6. For j = 1 To UBound(Arr, 2) Step 9
   
7.     For i = 1 To UBound(Arr)
   
8.         n = Len(Arr(i, j))
   
9.         If n > 1 Then
   
10.             lf = Left(Arr(i, j), n - 1)
    
11.         Else
    
12.             Arr(i, j) = lf & Arr(i, j)
    
13.         End If
    
14.     Next
    
15. Next
    
16. [b14].Resize(UBound(Brr), 28) = Arr
    
17. End Sub
    

复制代码

冥王

用公式即可，B14输入公式，右拉下拉

1. =SUBSTITUTE(IF(LEN(B3)=1,LEFT(B13,LEN(B13)-1)&B3,B3),",","-")

复制代码

ccc919

请问没有A列怎么表示？还有如何选中区域内的逗号变成——符号 如 B3——5

只能在区域 A3：AK12生效，其他地方无效