怎么把excel表格转成代码

1.如何把Excel 表格中乱码变成代码

方法一：转换为较早的版本

如果由于启动故障而没有保存Excel工作簿，则最后保存的版本可能不会被损坏。当然，该版本不包括最后一次保存后对文档所作的更改。

关闭打开的工作簿，当系统询问是否保存更改时，单击“否”。在“文件”菜单中，单击“打开”命令，双击该工作簿文件即可。

方法二：打开并修复工作簿

如果Excel文件根本不能够使用常规方法打开，那么可以尝试Excel 2003中的“打开并修复”功能，该功能可以检查并修复Excel工作簿中的错误。

在“文件”菜单中，单击“打开”命令。通过“查找范围”框，定位并打开包含受损文档的文件夹，选择要恢复的文件。单击“打开”按钮旁边的箭头，然后单击“打开并修复”即可。

2.excel把文字转成数字代码后怎么转回来

这是因为设置了R1C1引用样式。改回字母的步骤：

第一步：点击“文件”选项卡中的“选项”

第二步：在弹出的对话框的左侧点击“公式”，这是右侧第二项“使用公式”下的第一个“R1C1引用样式”是被勾选中的

第三步：将“R1C1引用样式”勾选去除掉，点击确定即可

3.Excel中如何自动转换编码

Q我吧，用宏代码即VBA编程 QQ:394901158 是想实现这个功能吗，你只要在1、2、3、4列中输入相关数据，H列就会自动生成编号，注：如果1、2、4列中没有输过的类别，系统会提示你输入该类别的编码，如：之前没有输过“固定资产”，则系统会提示你输入编号，你可以在提示框中输入“GD”，以后再输入固定资产时就不会再提示了，其他几个分类别也是一样，只要第一次输入就可以了。

我的表格比你的多一个标识列，这个列不可以删除，你可以把它隐藏起来。 以下是代码： Private Sub Worksheet_Change(ByVal Target As Range) Dim r As Worksheet, c As Range, co As Integer, ro As Integer, intcount As Integer If Target.Columns.Count > 1 Or Target.Rows.Count > 1 Then Exit Sub Set r = Sheets（"库"） co = Target.Column ro = Target.Row If Target.Column = 1 Or Target.Column = 2 Or Target.Column = 4 Then Set c = r.Range("A1:A" & r.UsedRange.Rows.Count).Find(what:=Target) If c Is Nothing Then loop1: strtemp = InputBox（"数据库没有该分类，请输入该分类的编码！！"， "分类编码"） ro = r.Range("A65536").End(xlUp).Row + 1 If strtemp = "" Then GoTo loop1 r.Cells(ro, 1) = Target r.Cells(ro, 2) = strtemp End If With Target If Cells(.Row, 1) <> "" And Cells(.Row, 2) <> "" And Cells(.Row, 4) <> "" Then strtemp = findstr(Cells(.Row, 1)) & "-" & findstr(Cells(.Row, 2)) & "-" & findstr(Cells(.Row, 4)) Cells(.Row, 16) = strtemp With ActiveSheet.Range("P2:P" & ActiveSheet.UsedRange.Rows.Count) Set c = .Find(what:=strtemp, LookIn:=xlValues) intcount = 0 If Not c Is Nothing Then firstrow = c.Row Else intcount = 1 GoTo loop2 End If Do intcount = intcount + 1 Set c = .FindNext(c) ro = c.Row Loop Until Not c Is Nothing And c.Row = firstrow loop2: Cells(Target.Row, 8) = strtemp & "-" & Format(Cells(Target.Row, 3), "yyyymmdd") & "-" & Format(intcount, "000") End With End If End With End If End Sub Function findstr(strtemp As String) As String Dim r As Worksheet, c As Range Set r = Sheets（"库"） Set c = r.Range("A1:A" & r.UsedRange.Rows.Count).Find(what:=strtemp) If Not c Is Nothing Then findstr = r.Cells(c.Row, c.Column + 1) End If End Function。

4.关于EXCEL表 输入文字转换成代码的问题

Excel 本身并无此种功能， 惟有用函数公式， 现列出其中一种方法：

假设 3列60行 在 Sheet1! A1:C60

放在 Sheet2! A1:I20 (9列20行)

在Sheet2 的A1 输入公式：

=OFFSET(Sheet1!$A$1,(ROW()-1)*3+((COLUMN()-1)/3),MOD(COLUMN()-1,3))

再将公式复制（或下拉右拉）至 A1:I20

完成