excel格式怎么批量转格式

1.EXCEL表格中内容如何批量转成其它格式(即A清单内容转换成B表格

先设计B表（Sheet2）如图：

将公式

=HLOOKUP(A1,Sheet1!$A$2:$G$500,INT(ROW(A3)/3)+INT(COLUMN(D1)/4),)

粘贴至B1单元格，对准右下角，光标成"+"状时，按住左键向下拖至B3单元格，如图：

-->按"Ctrl"+"C"键-->光标放在D1单元格-->按 "Ctrl"+"V"键 ，如图：

将公式

=HLOOKUP(A4,Sheet1!$A$2:$G$500,INT(ROW(A3)/3)+INT(COLUMN(D1)/4),)

粘贴至B4单元格，如图：

选中A1:E6单元格，对准右下角，光标成"+"状时，按住左键向右拖，如图：

-->再接着向下拖，如图：

2.怎样在excel中将日期格式批量转换成文本格式?

像文本格式的2007。

1。1替换为2007-1-1就会自动转化为日期格式，如果设置成文本格式就会变成数字39083 我得批量转化，只能用函数来解决： 在文本字符串中用 new_text 替代 old_text。

如果需要在某一文本字符串中替换指定的文本，请使用函数 SUBSTITUTE；如果需要在某一文本字符串中替换指定位置处的任意文本，请使用函数 REPLACE。 语法 SUBSTITUTE(text,old_text,new_text,instance_num) Text 为需要替换其中字符的文本，或对含有文本的单元格的引用。

Old_text 为需要替换的旧文本。 New_text 用于替换 old_text 的文本。

Instance_num 为一数值，用来指定以 new_text 替换第几次出现的 old_text。如果指定了 instance_num，则只有满足要求的 old_text 被替换；否则将用 new_text 替换 Text 中出现的所有 old_text。

还是看例子吧！ 在B例输入 =SUBSTITUTE(B2，"。"，"-")，然后用填充柄向下拉 例如： A B 2007。

1。1 2007-1-1 2007。

1。2 2007-1-2 2007。

1。3 2007-1-3 2007。

1。4 2007-1-4 2007。

1。5 2007-1-5 2007。

1。6 2007-1-6 2007。

1。7 2007-1-7 2007。

1。8 2007-1-8 2007。

1。9 2007-1-9 2007。

1。 10 2007-1-10 2007。

1。11 2007-1-11 2007。

1。12 2007-1-12 2007。

1。13 2007-1-13 2007。

1。14 2007-1-14 2007。

1。15 2007-1-15 2007。

1。16 2007-1-16 2007。

1。17 2007-1-17 2007。

1。18 2007-1-18 2007。

1。19 2007-1-19 2007。

1。20 2007-1-20 2007。

1。21 2007-1-21 2007。

1。22 2007-1-22 2007。

1。23 2007-1-23 2007。

1。24 2007-1-24 2007。

1。25 2007-1-25 2007。

1。26 2007-1-26 方法还有很多。

在Excel的帮助里找答案 （打开excel，按F1） 以上是我对于这个问题的解答，希望能够帮到大家。

3.在线急等：需要把几万字的word文字按照如下格式批量转换为excel,

1。

新建Excel工作簿，把Word文件粘贴到Sheet1的A列里； 2。按“Alt F11”调出VBA编辑器，在“ThisWorkbook”上点“右键----插入----模块”； 3。

把下列代码粘贴进去，关闭VBA编辑器； Sub?Macro1() ????Sheets("Sheet2")。 Select ????Columns("B:B")。

Select ????With?Selection ????????。HorizontalAlignment?=?xlGeneral ????????。

VerticalAlignment?=?xlCenter ????????。WrapText?=?True ????????。

Orientation?=?0 ????????。 AddIndent?=?False ????????。

IndentLevel?=?0 ????????。ShrinkToFit?=?False ????????。

ReadingOrder?=?xlContext ????????。 MergeCells?=?False ????End?With ????js1?=?1 ????js2?=?1 ????Sheets("Sheet1")。

Select ????Do?While?Cells(js1,?1)? Sub Macro1() Sheets("Sheet2")。Select Columns("B:B")。

Select With Selection 。HorizontalAlignment = xlGeneral 。

VerticalAlignment = xlCenter 。 WrapText = True 。

Orientation = 0 。AddIndent = False 。

IndentLevel = 0 。 ShrinkToFit = False 。

ReadingOrder = xlContext 。MergeCells = False End With js1 = 1 js2 = 1 Sheets("Sheet1")。

Select Do While Cells(js1, 1) 追问 ： 好复杂啊。

我怕我搞不定。