☰

需要在 VBA 函数中进行限制

tag-icon • tag-icon microsoft-excel worksheet-function vba office365 html-mail
需要在 VBA 函数中进行限制

我希望下面的函数从 Row 到 Column 选择数据H，但是这个函数只会选择最后使用的单元格的详细信息。

以下是我正在使用的 VBA 代码，请帮我解决这个问题。

Function getapproverdataHTML() As String

    Dim datacolumn As Range
    Dim datarow As Range
    Dim R As Range
    Dim C As Range
    Dim str As String

    sheets(2).Activate

    Set datacolumn = Range("A1", Range("A1").End(xlDown))

    str = "<table>"

    For Each R In datacolumn
    str = str & "<tr>"
    Set datarow = Range(R, R.End(xlToRight))
    For Each C In datarow
    str = str & "<td>" & C.Value & "</td>"
    Next C
    str = str & "</tr>"
    Next R
    str = str & "</table>"
    getapproverdataHTML = str


End Function

答案1

如果您所说的单元格“H”实际上是指列“H”中的单元格，那么请尝试将您的Set datarow行更改为：

Set datarow = Range(R, R(1, 9).End(xlToLeft))

如果您的意思另有含义，请澄清。

顺便说一句，你应该使用类似的方法datacolumn

Set datacolumn = Range("A1", cells(rows.count,1).End(xlup))

相关内容