新手求助怎样把别人写的代码运行到需要的表格中？

许均豪

如题，在别的帖子中找到了解决方法，没用过vba，不知道怎么运行到需要的表格内。Sub HeightTo()

    Application.ScreenUpdating = False
    rh = InputBox("请输入待增行高值：", , 4)
    For i = 1 To ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row
        If Application.WorksheetFunction.CountA(Rows(i)) > 0 Then
            Rows(i).RowHeight = Rows(i).RowHeight + rh
        End If
    Next i
    Application.ScreenUpdating = True

End Sub

Yalishanda30

没附件。。。模拟一个参考

许均豪

Yalishanda30 发表于 2023-7-25 10:46
没附件。。。模拟一个参考

请问是导入的步骤，是什么样的，结果我知道

Yalishanda30

许均豪 发表于 2023-7-25 10:48
请问是导入的步骤，是什么样的，结果我知道

基础知识自己找本书看吧

半百

[attach]2916002[/attach]

许均豪

半百 发表于 2023-7-25 11:08
002[/attach]

很详细，十分感谢。之前我用的WPS开的没有弄出来，后来我用EXCEL打开按照该方法成功了。