【201502函初】练习二十七 提交贴（已开贴）

xk465592765

1、学号
2、只要公式,不要附件
3、修改帖子在原楼

xk465592765

开贴后参考其他童学或者看视频！

天天EP

C05天天EP
1，略、
2、

1. =REPLACE(A22,LENB(A22)-LEN(A22)+1,,CHAR(10))

复制代码

3、

1. =提取英文($A31,COLUMN(A1))
   
2. 自定义
   
3. Public Function 提取英文(rg As Range, k As Integer)
   
4.     Dim arr, brr
   
5.     Dim s As String, i As Integer, j As Integer
   
6.     arr = Split(rg.Text, "-")
   
7.     If k > UBound(arr) + 1 Then
   
8.         s = ""
   
9.     Else
   
10.            For j = 1 To Len(arr(k - 1))
    
11.             If Not VBA.IsNumeric(Mid(arr(k - 1), j, 1)) Then
    
12.             s = s & Mid(arr(k - 1), j, 1)
    
13.             End If
    
14.         Next j
    
15.        End If
    
16.     提取英文 = s
    
17. End Function

复制代码

4、

1. =提取数字($A40,COLUMN(A1))
   
2. 自定义、
   
3. Public Function 提取数字(rg As Range, k As Integer)
   
4.     Dim arr, brr
   
5.     Dim s As String, i As Integer, j As Integer
   
6.     arr = Split(rg.Text, "-")
   
7.     If k > UBound(arr) + 1 Then
   
8.         s = ""
   
9.     Else
   
10.    
    
11.    
    
12.         For j = 1 To Len(arr(k - 1))
    
13.             If VBA.IsNumeric(Mid(arr(k - 1), j, 1)) Then
    
14.             s = s & Mid(arr(k - 1), j, 1)
    
15.             End If
    
16.         Next j
    
17.    
    
18.     End If
    
19.     提取数字 = s
    
20. End Function
    

复制代码

5、

1. =MID($A49,COLUMN(A1),1)

复制代码

ddhhyy16

1. 第二题
   
2. =LEFT(A19,LENB(A19)-LEN(A19))&CHAR(10)&RIGHT(A19,2*LEN(A19)-LENB(A19))
   
3. 第三题
   
4. =LEFT(TRIM(MID(SUBSTITUTE($A28,"-",REPT(" ",20)),COLUMN(A1)*20-19,20)),SUM((IFERROR(CODE(MID(TRIM(MID(SUBSTITUTE($A28,"-",REPT(" ",20)),COLUMN(A1)*20-19,20)),ROW($1:$8),1)),0)>57)*1))
   
5. 第四题
   
6. =RIGHT(TRIM(MID(SUBSTITUTE($A28,"-",REPT(" ",20)),COLUMN(A1)*20-19,20)),SUM((IFERROR(CODE(MID(TRIM(MID(SUBSTITUTE($A28,"-",REPT(" ",20)),COLUMN(A1)*20-19,20)),ROW($1:$8),1)),500)<58)*1))
   
7. 第五题
   
8. =MID($A46,COLUMN(A1),1)
   
9. 
   

复制代码

jzkwf

C组长:jzkwf
第一题

1. 不会

复制代码

第二题

1. =LEFT(A19,LENB(A19)-LEN(A19))&CHAR(10)&RIGHT(A19,2*LEN(A19)-LENB(A19))

复制代码

第三题

1. =SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(TRIM(MID(SUBSTITUTE(A28,"-",REPT(" ",99)),COLUMN(A1:E1)*99-98,99)),1,),2,),3,),4,),5,)

复制代码

第四题

1. =IF(MAX(IFERROR(MID(TRIM(MID(SUBSTITUTE($A28,"-",REPT(" ",99)),COLUMN(A1)*99-98,99)),ROW(A1:A5),5)*1,""))=0,"",MAX(IFERROR(MID(TRIM(MID(SUBSTITUTE($A28,"-",REPT(" ",99)),COLUMN(A1)*99-98,99)),ROW(A1:A5),5)*1,"")))

复制代码

第五题

1. =MID($A46,COLUMN(A1),1)

复制代码

回答完毕！

红旗雪

B13:红旗雪
第一题，见附件
第二题

1. =REPLACE(A19,LENB(A19)-LEN(A19)+1,,REPT(" ",20))

复制代码

第三题，数组公式

1. =IFERROR(MID(TRIM(MID(SUBSTITUTE($A28,"-",REPT(" ",100)),COLUMN(A1)*100-99,99)),1,MAX(IF(ISERROR(MID(TRIM(MID(SUBSTITUTE($A28,"-",REPT(" ",100)),COLUMN(A1)*100-99,99)),ROW(INDIRECT("A1:A"&LEN(TRIM(MID(SUBSTITUTE($A28,"-",REPT(" ",100)),COLUMN(A1)*100-99,99))))),1)*1),ROW(INDIRECT("A1:A"&LEN(TRIM(MID(SUBSTITUTE($A28,"-",REPT(" ",100)),COLUMN(A1)*100-99,99))))),0))),"")

复制代码

第四题，数组公式

1. =MID(TRIM(MID(SUBSTITUTE($A37,"-",REPT(" ",100)),COLUMN(A1)*100-99,99)),SMALL(IF(ISNUMBER(MID(TRIM(MID(SUBSTITUTE($A37,"-",REPT(" ",100)),COLUMN(A1)*100-99,99)),ROW(INDIRECT("A1:A"&LEN(TRIM(MID(SUBSTITUTE($A37,"-",REPT(" ",100)),COLUMN(A1)*100-99,99))))),1)*1),ROW(INDIRECT("A1:A"&LEN(TRIM(MID(SUBSTITUTE($A37,"-",REPT(" ",100)),COLUMN(A1)*100-99,99))))),99),1),5)

复制代码

第五题

1. =MID($A46,COLUMN(A1),1)

复制代码