如何在excel中生成宏??

Question

小弟没有安装vb，只装了office，
目前小弟在打开excell中编辑宏，但是发现没办法导出一个*.xla的宏文件，
故小弟想请问如何将写的代码生成一个宏？下次就直接导入一个宏就可以了。另小弟还有一小小问题，就是在excell中如何判断其中某一行是只有一列的？？肯请答复哦。小弟拜谢！！

Answer 1

Sub test()
    If ColumnsCountByRow(5) = 1 Then MsgBox "此行只有一列!"
End SubFunction ColumnsCountByRow(ByVal lRow As Long) As Long
    Dim i As Long
    Dim lcount As Long
    
    For i = 0 To Sheet1.UsedRange.Columns.count - 1
        If Sheet1.Range(Chr(Asc("A") + i) & CStr(lRow) & ":" & Chr(Asc("A") + i) & CStr(lRow)).Value <> "" Then lcount = lcount + 1
    Next
    ColumnsCountByRow = lcount
End Function

Answer 2

leolan(史留香) thank you !
请大家再帮帮忙解决上面那个简单的问题，只要把步骤说出来就好了。。
解决立结！

Answer 3

另再请问一个问题，如何对combox中的显示值排序？
因为combox中的内容是通过读取文件中获取的。而文件中的内容没有排过序？请问有什么好方法？？谢谢！

Answer 4

忘记说一句了。是在vba里面哦。不是在vb里面哦。

Answer 5

大家help哦。。解决就结帖哦。。随便说说不就好了吗？