excel表格怎么把缩略的内容

1.如何用函数或者VBA在excel单元格里产生缩写

有两个单词就增行并缩写？

代码如下

Sub test()

Dim arr, brr(), x&, i&, j&

arr = Range("A1:A" & Range("A65536").End(xlUp).Row)

For x = 1 To UBound(arr)

i = InStr(arr(x, 1), " ")

If i > 0 Then

j = j + 1

ReDim Preserve brr(1 To j)

brr(j) = arr(x, 1)

j = j + 1

ReDim Preserve brr(1 To j)

brr(j) = UCase(Left(arr(x, 1), 1)) & "." & Mid(arr(x, 1), i + 1, Len(arr(x, 1)))

Else

j = j + 1

ReDim Preserve brr(1 To j)

brr(j) = arr(x, 1)

End If

Next x

Range("C1").Resize(UBound(brr)) = Application.Transpose(brr)

End Sub

有B列修改一下就可以了

Sub test()

Dim arr, brr(), x&, i&, j&

arr = Range("A1:B" & Range("A65536").End(xlUp).Row)

For x = 1 To UBound(arr)

i = InStr(arr(x, 1), " ")

If i > 0 Then

j = j + 1

ReDim Preserve brr(1 To 2, 1 To j)

brr(1, j) = arr(x, 1)

brr(2, j) = arr(x, 2)

j = j + 1

ReDim Preserve brr(1 To 2, 1 To j)

brr(1, j) = UCase(Left(arr(x, 1), 1)) & "." & Mid(arr(x, 1), i + 1, Len(arr(x, 1)))

brr(2, j) = arr(x, 2)

Else

j = j + 1

ReDim Preserve brr(1 To 2, 1 To j)

brr(1, j) = arr(x, 1)

brr(2, j) = arr(x, 2)

End If

Next x

Range("C1").Resize(UBound(brr, 2), 2) = Application.Transpose(brr)

End Sub

2.excel中公式能缩写吗

=IF(OR(AND(I3=0,J3=0,K3=0,L3=0),AND(I3>0,J3=0,K3=0,L3=0),AND(I3=0,J3>0,K3=0,L3=0),AND(I3=0,J3=0,K3>0,L3=0),AND(I3=0,J3=0,K3=0,L3>0)),"",IF(AND(I3>0,J3>0,K3=0,L3=0),0.5,IF(AND(I3=0,J3=0,K3>0,L3>0),0.5)))

把所有 返回值 为空的，集合在 一起