2、打开Excel剪贴板。
3、将要合并的excel单元格内容复制到剪贴板。
4、此时我们可以对选定单元格进行合并处理。
5、合并后,我们先对合并的单元格内容清空,然后把鼠标定位到该单元格中。
6、点击剪贴板内容——黏贴。
7、此时我们就完成合并单元格但是保留内容。
在 Excel 中,可以使用 VBA 宏来将数字快速转换为会计大写。以下是具体步骤:
1. 打开 Excel,按下“Alt+F11”键,打开 VBA 编辑器。
2. 在 VBA 编辑器中,选择“插入”菜单下的“模块”选项,插入一个新的模块。
3. 在新的模块中,输入以下 VBA 代码:
```
Function ConvertCurrencyToEnglish(ByVal MyNumber)
Dim Dollars, Cents, Temp
Dim DecimalPlace, Count
ReDim Place(9) As String
Place(2) = " Thousand "
Place(3) = " Million "
Place(4) = " Billion "
Place(5) = " Trillion "
MyNumber = Trim(Str(MyNumber))
DecimalPlace = InStr(MyNumber, ".")
If DecimalPlace > 0 Then
Cents = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & "00", 2))
MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
End If
Count = 1
Do While MyNumber <> ""
Temp = GetHundreds(Right(MyNumber, 3))
If Temp <> "" Then Dollars = Temp & Place(Count) & Dollars
If Len(MyNumber) > 3 Then
MyNumber = Left(MyNumber, Len(MyNumber) - 3)
Else
MyNumber = ""
End If
Count = Count + 1
Loop
Select Case Dollars