还是<em>EXCEL</em> VBA的问题，高分送上-excel 战斗模拟器,战斗模拟器2

答：end()里面的数字是简写的，这样很不好辨认。强烈建议使用命名参数。

1、e799bee5baa6e997aee7ad94e59b9ee7ad943632、3、4代表xlToLeft、xlToRight、xlUp、xlDown。也就是点一个单元格，然后按“Ctrl+箭头”后指向的单元格。

我修改了这段代码，已验证了能正确导出。

Private Sub export()
    Application.ScreenUpdating = False
    Path = "E:\export"
    Dim nro&, nco&
    nco = Cells(1, Columns.Count).End(xlToLeft).Column
    For i = 1 To nco
        nro = Cells(Rows.Count, i).End(xlUp).Row
        Open Path & "\file" & i & ".txt" For Output As #1
        For Each cell In Range(Cells(1, i), Cells(nro, i))
            Print #1, cell
        Next
        Close #1
    Next
    Application.ScreenUpdating = True
    MsgBox "导出完成"
End Sub

有些变量要在各种userform、sheet和模块中使用，所以必须定义成公用变量
公用变量不能在sheet和form下定义，必须在模块中定义
公用变量在模块中用public定义后就可以在copyVBA任何地方读取和改写

对于Combobox控件，下拉选择后显示的是ListIndex指定序号的值，该值从0开始计算，所以ListIndex=0是第一个，LstIndex=1的则是第二个。你用N=Combobox1.ListIndex+2 得到sheet表的行号，然后读cells(N,2),cells(n,3)...等就可以读出下拉框“职业”对应的生命值、闪避值等对应参数了，这些参数值要读到public定义的公用变量中，就可以在任意地方使用了。zhidao

我已经把修改过的答案发到你的邮箱。

我看过了。。你把计算数值弄错了。。那些计算模拟器的东西完全没用成功