vb如何在excel表格后面新建一个sheet表

Question

第一个问题：你查看一下 sheets.add方法，里面有before，after等说明。
第二个问题：估计得用vba，仅用excel自身的搜索可能找不到（实际上不知换行符怎么表示）。

Answer 1

换行符CHR$(10)
更多字符查查ASCII表就知道了。

Answer 2

这是代码中用的换行符。不是excel查找和替换中的换行符。

Answer 3

这是代码中用的换行符。不是excel查找和替换中的换行符。
楼主说的很清楚，用VB替换换行符，你非要说用excel查找和替换
遍历所有单元格，取单元格内容，替换换行符：
dim C as range,s as string
for each c in cells
c=replace$(c.text,CHR$(10),"你要替换的字符")
next 注意，如果有单元格中字符超过255，超过部分会被自动截断。这是，我之前用EXCEL操作CSV文件时发现的。后来我直接写了算法自己解析CSV文件了……至于XLS文件怎么解析，我就不知道了。除非你是OFFICE工程师……

Answer 4

谢谢大家。我已经有更好的办法了。、Sub 新建()
Sheets.Add After:=Sheets(Sheets.Count)
End Sub
Sub替换()
Cells.Replace Chr(10), ""
End Sub