电子表格excel 怎么换行加行数

1.excel 怎么换行加行数

录制一个宏，保存这个宏名称为 ”换行“，然后编辑”换行“这个宏，将以下代码替换到这个宏中，运行宏即可。这个是针对A1这个一格，将里面的字符串替换出来，重新在B这一列将所有数据从上到下依次排列起来。

如果有多个表格，需要把代码优化一下，无非是重复执行下面这个过程，将每一个单元格中的数据提取出来，在SHEET2中依次列出来即可。

Sub 换行（）

' 换行 宏

Dim temStr As String

temStr = Cells(1, 1)

Dim i, j, loc1, loc2, Nums1 As Integer

Dim temStrs(1000) As String

For i = 1 To Len(temStr)

loc1 = 0

If Mid(temStr, i, 1) <> "!" Then

If loc1 = 0 Then loc1 = i

For j = i To Len(temStr)

If Mid(temStr, j, 1) = "!" Then

loc2 = j

i = loc2

Nums1 = Nums1 + 1

temStrs(Nums1) = Mid(temStr, loc1, loc2 - loc1)

GoTo 100

End If

Next j

End If

100 Next i

i = 0

For i = 1 To Nums1

Cells(i, 2) = i & " " & temStrs(i)

Next i

End Sub

2.excel中,如何设置一个单元格里加数

得用宏。

右键点工作表的名字（比如Sheet1，在左下角呢），查看代码，粘贴如下代码：

Dim xx As Single

Private Sub Worksheet_Change(ByVal Target As Range)

On Error GoTo Line2

If Target.Address = "$A$1" Then

Application.EnableEvents = False

Range("A1") = Range("A1") + xx

Line2: Application.EnableEvents = True

End If

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

On Error GoTo Line1

If Target.Address = "$A$1" Then xx = Range("A1")

Line1: End Sub

回到Excel，功能实现。