excel多格内容怎么合并,合并,内容

1.excel中,如何把多格中的字符合并的同一个格中?

打开VBA

插入

模块1

复制下面代码

Function HB(if_range, Optional criteria, Optional hb_range, Optional separator)

If IsMissing(separator) Then separator = " "

If IsMissing(hb_range) Then Set hb_range = if_range

If IsMissing(criteria) Then

For Each c In hb_range.Cells

t = t & "、" & c

Next

Else

If Left(criteria, 1) = "F" Then

For i = 1 To if_range.Cells.Count

If InStr(if_range.Cells(i), Mid(criteria, 2)) Then t = t & "、" & hb_range.Cells(i)

Next i

Else

For i = 1 To if_range.Cells.Count

If Application.Evaluate(if_range.Cells(i) & criteria) Then t = t & "、" & hb_range.Cells(i)

Next i

End If

End If

HB = Mid(t, 2)

End Function

用上边的自定义函数吧

2.Excel 怎么样合并多张表的内容

Sub 合并工作表（）

For i = 2 To Sheets.Count

Sheets(i).UsedRange.Copy Destination:=Sheets（"汇总"）.Range("A" & Sheets（"汇总"）.UsedRange.Rows.Count + 1)

Next

End Sub

ALT+F11，打开代码窗口.粘贴代码

回到工作表中.按ALT+F8，运行这段代码就可以了

保证第一个工作表名称为 汇总

合并后如果有多余的标题行，自己筛选来删除就OK了