从不同范围复制单元格,不出现#SPILL错误。

huangapple go评论188阅读模式
英文:

Copy Cells from Separate Range Without #SPILL

问题

如果Sheet1!D2:D40中的任何单元格包含"COMPLETE",我需要将该工作表中的单元格F(行)的内容复制到Sheet3!B(行)。我尝试过使用=IF,但这会导致39行的#SPILL!。在Sheet1上的条件得到满足之前,我需要Sheet3中的单元格保持为空白。之后,我需要它们根据需要逐行填充。例如,如果Sheet1!D6是"COMPLETE",我希望Sheet1!F6复制到Sheet3!B1。然后,如果Sheet1!D17是"COMPLETE",则Sheet1!F17应复制到Sheet3!B2,依此类推。

我显然是个新手(特别是在Excel/VBA方面),但我了解编程概念。我觉得可能有一些我不熟悉的数组函数可以完成这个任务。

我尝试过=IF(Sheet1!$D2:$D40 = "COMPLETE", Sheet1!$F2, ""),但没有用。

我在VBA中尝试了几种IF_THEN的变体,但结果都相同。

英文:

If any of the cells in Sheet1!D2:D40 contain "COMPLETE", I need cell F(row), from that sheet, to copy its contents to Sheet3!B(row). I've tried this using =IF, but that gives 39 rows of #SPILL!. I need the cells in Sheet3 to remain blank until said condition on Sheet1 is met. After that, I need them to fill in, row by row (as conditionally required). i.e., If Sheet1!D6 is "COMPLETE", I want Sheet1!F6 to copy to Sheet3!B1. Then, if Sheet1!D17 is "COMPLETE", then Sheet1!F17 should copy to Sheet3!B2, etc.

I'm clearly a rookie (ESPECIALLY with Excel/VBA), but I do understand programming concepts. I feel like there's probably some array function I'm unfamiliar with that could do this.

I've tried =IF(Sheet1!$D2:$D40 = "COMPLETE", Sheet1!$F2, "")

That was useless.

I tried several IF_THEN variations in VBA, but kept getting the same result.

答案1

得分: 0

你可以使用工作表公式获得匹配的结果。

=IFERROR(INDEX(Sheet1!$F$2:$F$40, FILTER(ROW(Sheet1!$D$2:$D$40), Sheet1!$D$2:$D$40="COMPLETE")-1, 1), "")

数组公式(按<Ctrl+Shift+Enter>)

=IFERROR(INDEX(Sheet1!$F$2:$F$40, SMALL(IF(Sheet1!$D$2:$D$40="COMPLETE", ROW(Sheet1!$D$2:$D$40)-1), ROW(1:40))), "")

VBA也是一种选项。

Sub demo()
    Dim arr, res, idx
    arr = Sheets("Sheet1").Range("D2:F40").Value
    ReDim res(1 To UBound(arr), 1 To 1)
    idx = 1
    For i = 1 To UBound(arr)
        If arr(i, 1) = "COMPLETE" Then
            res(idx, 1) = arr(i, 3)
            idx = idx + 1
        End If
    Next
    If idx > 1 Then
        Sheets("Sheet3").Cells(1, 2).Resize(idx - 1, 1).Value = res
    End If
End Sub
英文:

You can get the matching result with worksheet formula.

=IFERROR(INDEX(Sheet1!$F$2:$F$40, FILTER(ROW(Sheet1!$D$2:$D$40), Sheet1!$D$2:$D$40=&quot;COMPLETE&quot;)-1, 1), &quot;&quot;)

Array formula (Press <Ctrl+Shift+Enter>)

=IFERROR(INDEX(Sheet1!$F$2:$F$40, SMALL(IF(Sheet1!$D$2:$D$40=&quot;COMPLETE&quot;, ROW(Sheet1!$D$2:$D$40)-1), ROW(1:40))), &quot;&quot;)

VBA is a option for you too.

Sub demo()
    Dim arr, res, idx
    arr = Sheets(&quot;Sheet1&quot;).Range(&quot;D2:F40&quot;).Value
    ReDim res(1 To UBound(arr), 1 To 1)
    idx = 1
    For i = 1 To UBound(arr)
        If arr(i, 1) = &quot;COMPLETE&quot; Then
            res(idx, 1) = arr(i, 3)
            idx = idx + 1
        End If
    Next
    If idx &gt; 1 Then
        Sheets(&quot;Sheet3&quot;).Cells(1, 2).Resize(idx - 1, 1).Value = res
    End If
End Sub

huangapple
  • 本文由 发表于 2023年8月5日 09:12:14
  • 转载请务必保留本文链接:https://go.coder-hub.com/76839777.html
匿名

发表评论

匿名网友

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen:

确定