请高手赐教

风的泪

冻配登记表.zip (3.22 KB, 下载次数: 37)

2012-8-5 16:34 上传

点击文件名下载附件

请高手帮忙给个vba程序，把附件中表一的内容生成表二，谢了

jianjin1234

Private Sub CommandButton1_Click()
Sheet2.Range("c3") = ActiveCell.Text
    Sheet2.Range("e3") = ActiveCell.Offset(0, 1).Text
     Sheet2.Range("g3") = ActiveCell.Offset(0, 2).Text
     Sheet2.Range("i3") = ActiveCell.Offset(0, 3).Text
    ActiveCell.NumberFormatLocal = "@"
      Sheet2.Range("c4") = ActiveCell.Offset(0, 4).Text
    Sheet2.Range("e4") = ActiveCell.Offset(0, 5).Text
      Sheet2.Range("g4") = ActiveCell.Offset(0, 6).Text
      Sheet2.Range("i4") = ActiveCell.Offset(0, 7).Text
      Sheet2.Range("k4") = ActiveCell.Offset(0, 8).Text
      Sheet2.Range("b7") = ActiveCell.Offset(0, 9).Text
      Sheet2.Range("c7") = ActiveCell.Offset(0, 10).Text
      Sheet2.Range("d7") = ActiveCell.Offset(0, 11).Text
      Sheet2.Range("e7") = ActiveCell.Offset(0, 12).Text
        Sheet2.Range("f7") = ActiveCell.Offset(0, 13).Text
        Sheet2.Range("g7") = ActiveCell.Offset(0, 14).Text
        Sheet2.Range("h7") = ActiveCell.Offset(0, 15).Text
        Sheet2.Range("i7") = ActiveCell.Offset(0, 16).Text
          Sheet2.Range("j7") = ActiveCell.Offset(0, 17).Text
            Sheet2.Range("k7") = ActiveCell.Offset(0, 18).Text
End Sub
不知是否符合你的要求。方法：打开文件并开启宏，选中表一姓名列的名字中的任一单元格，然后点击运行按钮即可。QQ710011340

风的泪

jianjin1234 发表于 2012-8-5 18:47
Private Sub CommandButton1_Click()
Sheet2.Range("c3") = ActiveCell.Text
    Sheet2.Range("e3") = A ...

表一种有几千条记录，可不可以一次性生成多个表二（表一的一行生成一个表二）

风的泪

有没有高手帮帮我？