批量把转换为excel

　　PDF格式文件是很多工作人士使用频率比较高的一个文件格式，它的好处是，浏览方便和保护资料的安全。但我们知道如何使用pdf文件，可是怎么转换很多人确实不知道，告诉你一个很简单的方法，看完就完全明白了，转换的步骤也简单。迅捷PDF转换器专门针对PDF文件，可以实现基于超线程技术的PDF文件批量转换技术，多个PDF文件实现批量一键转换，轻松快捷，只需将PDF文件上传即可。

　　pdf转excel转换器正确使用方法：

　　1、点击安装并打开迅捷pdf转换器。

　　2、选择您需要使用的模式，如果需要将文件转化为excel文档，点击"文件转excel"模式。

　　3、点击"添加文件/添加文件夹"，把需要转换的文件添加进来，同时选择转换后文件需要保存的路径。

　　4、点击下方"开始转换"按钮，等待片刻就可以顺利完成转换了。

　　以上就是把pdf转换成excel表格的方法，希望看完后，对大家有所帮助，按照以上方法就可完成pdf转换成excel文件的目的。

1、全选

2、按CTRL+H（查找替换快捷键）

3、查找框中输入需替换的数据－－替换框中输入想替换为的数据－－全部替换就行。

substitute函数可以实现，以A1单元格为例

公式为:

=substitute(substitute(substitute(substitute(substitute（A1,"订",""）,"询",""),"定",""),"现",""),"少","")

如有需要可以继续交流！

Excel行列批量转置，根据截图信息来看，可以使用INDEX引用函数、COLUMN列序号函数和ROW行序号函数组合公式，在D2单元格输入公式并向下及向右填充，如下：

=INDEX($B$1:$B$12,COLUMN(A1)+(ROW(A1)-1)*3)

公式及效果图

公式思路：

INDEX引用函数这里由两个部分组成，第一个部分为需引用的数据区域，第二个则是需要位移的行数，这里由COLUMN和ROW函数组成；

由于向右填充是增加1，因此用COLUMN来实现，向下则是以3的差值递增，则用ROW函数再乘3来实现，而第一条数据是不需要行数乘三，因此需要减一，变成0乘3。

你好，楼主想要的功能，可以使用VBA程序实现。

（一）VBA程序代码如下：（代码运行之前请做好数据备份，以免丢失）

Sub abcd()
Dim i1, i2, i3, str
On Error Resume Next
Set mysheet1 = ThisWorkbook.Worksheets("Sheet1")  '定义工作表Sheet1

For i1 = 1 To 1000  '从第1行到1000行
 If mysheet1.Cells(i1, 1) <> "" Then     '如果单元格不是空白，则
  str = Mid(mysheet1.Cells(i1, 1), 1, 1) '截取第一个字符
  If IsNumeric(str) = True Then          '如果截取的字符是数字，则
   i2 = i1
   i3 = 1
  Else
   i3 = i3 + 1
  mysheet1.Cells(i2, i3) = mysheet1.Cells(i1, 1)  '把ABCD项写入含有数字的那一行
 End If
End If
Next

End Sub

（二）程序运行前后的结果如下图所示，望笑纳。

你好，楼主想要的功能，可以使用VBA程序实现。

（一）VBA程序代码如下：（代码运行之前请做好数据备份，以免丢失）

Sub abcd()
Dim i1, i2, i3, str
On Error Resume Next
Set mysheet1 = ThisWorkbook.Worksheets("Sheet1")  '定义工作表Sheet1

For i1 = 1 To 1000  '从第1行到1000行
 If mysheet1.Cells(i1, 1) <> "" Then     '如果单元格不是空白，则
  str = Mid(mysheet1.Cells(i1, 1), 1, 1) '截取第一个字符
  If IsNumeric(str) = True Then          '如果截取的字符是数字，则
   i2 = i1
   i3 = 1
  Else
   i3 = i3 + 1
  mysheet1.Cells(i2, i3) = mysheet1.Cells(i1, 1)  '把ABCD项写入含有数字的那一行
 End If
End If
Next

End Sub

（二）程序运行前后的结果如下图所示，望笑纳。