excel表格复制到CAD的方法
太复杂了，三下就行了 
1、在EXCEL中选中表格，按CTRL+C 
2、打开CAD，按CTRL+V 
3、调整其大小并移动到需要位置即可
 
excel实现自动生成目录
Alt+F11---------插入--------模块--------把下面的代码拷贝到模块中 
Sub mulu() 
On Error GoTo Tuichu 
Dim i As Integer 
Dim ShtCount As Integer 
Dim SelectionCell As Range 
ShtCount = Worksheets。
  Count 
If ShtCount = 0 Or ShtCount = 1 Then Exit Sub 
Application。ScreenUpdating = False 
For i = 1 To ShtCount 
If Sheets(i)。
  Name = "目录" Then 
Sheets("目录")。Move Before:=Sheets(1) 
End If 
Next i 
If Sheets(1)。Name <> "目录" Then 
ShtCount = ShtCount + 1 
Sheets(1)。
  Select 
Sheets。Add 
Sheets(1)。Name = "目录" 
End If 
Sheets("目录")。Select 
Columns("B:B")。Delete Shift:=xlToLeft 
Application。
  StatusBar = "正在生成目录…………请等待！" 
For i = 2 To ShtCount 
ActiveSheet。Hyperlinks。Add Anchor:=Worksheets("目录")。Cells(i, 2), Address:="", SubAddress:= _ 
"’" & Sheets(i)。
  Name & "’!R1C1", TextToDisplay:=Sheets(i)。Name 
Next 
Sheets("目录")。Select 
Columns("B:B")。AutoFit 
Cells(1, 2) = "目录" 
Set SelectionCell = Worksheets("目录")。
  Range("B1") 
With SelectionCell 
。HorizontalAlignment = xlDistributed 
。VerticalAlignment = xlCenter 
。AddIndent = True 
。
  Font。Bold = True 
。Interior。ColorIndex = 34 
End With 
Application。StatusBar = False 
Application。ScreenUpdating = True 
Tuichu: 
End Sub
直接将程序复制过去，运行--用户子过程/用户窗体---搞定
我修正了楼主的程序，经过调试可行，不会出现“引用无效” 
Sub mulu() 
On Error GoTo Tuichu 
Dim i As Integer 
Dim ShtCount As Integer 
Dim SelectionCell As Range 
ShtCount = Worksheets。
  Count 
If ShtCount = 0 Or ShtCount = 1 Then Exit Sub 
Application。ScreenUpdating = False 
For i = 1 To ShtCount 
If Sheets(i)。
  Name = "目录" Then 
Sheets("目录")。Move Before:=Sheets(1) 
End If 
Next i 
If Sheets(1)。Name <> "目录" Then 
ShtCount = ShtCount + 1 
Sheets(1)。
  Select 
Sheets。Add 
Sheets(1)。Name = "目录" 
End If 
Sheets("目录")。Select 
Columns("B:B")。Delete Shift:=xlToLeft 
Application。
  StatusBar = "正在生成目录…………请等待！" 
For i = 2 To ShtCount 
ActiveSheet。Hyperlinks。Add Anchor:=Worksheets("目录")。Cells(i, 2), Address:="", SubAddress:= _ 
"’" & Sheets(i)。
  Name & "’!R1C1", TextToDisplay:=Sheets(i)。Name 
Next 
Sheets("目录")。Select 
Columns("B:B")。AutoFit 
Cells(1, 2) = "目录" 
Set SelectionCell = Worksheets("目录")。
  Range("B1") 
With SelectionCell 
。HorizontalAlignment = xlDistributed 
。VerticalAlignment = xlCenter 
。AddIndent = True 
。
  Font。Bold = True 
。Interior。ColorIndex = 34 
End With 
Application。StatusBar = False 
Application。ScreenUpdating = True 
Tuichu: 
End Sub
我们在输入面积和体积时，经常要输入平方(上标2)和立方(上标3)。
  在Excel中输入这两个上标，有一个非常简便的方法： 
在按住Alt键的同时，按下小键盘上的数字“178”、“179”即可输入“上标2”和“上标3”。 
注意：在按住Alt键的同时，试着按小键盘上的一些数字组合(通常为三位)，可以得到一些意想不到的字符(例如Alt+137—‰、Alt+177—±等)。
  
在使用Excel时，首先就需要录入数据，要想让自己数据录得巧、录得省，还是需要掌握不少实用的技巧。 
 
录入技巧 
快速填入相同内容 
选中多个单元格后，输入字符，然后按Ctrl+Enter组合键，即可在选中的每个单元格中填入上述相同的字符。
   
快速复制上单元格 
选中下面的单元格，按Ctrl+ ’（’为西文的单引号）组合键，即可将上一单元格的内容快速复制下来。 
快速输入系统日期 
按下Ctrl+；组合键，即可快速输入系统日期。 
文本数字输入技巧 
一般情况下，在单元格中输入的任何数字，均以“右对齐”格式放置，而且Excel会把综当成数字来处理。
  如果你要输入文本格式的数字，除了事先将单元格设置为文本格式外，只要在数字前多输一个’（单引号）即可。 
分数输入技巧 
如果事先将Excel单元格设置为“分数”格式，即可在其中输入2/3。5/6这样的分数数据。除此以外，可以在“常规”单元格中按“0空格分数”的格式输入分数，如输入的“0□2/3 ”（□表示空格）即可显示“2/3”，并按15 位的数字精度进行数据处理。
  不过，此法输入的分母不能超过99，否则输入结果显示为0。 
权。