0

A3のテキストがA5：A50の範囲の他のセルのテキストと一致するかどうかを確認したいと思います。

その場合、Yセル（A3に一致するセルと同じ行番号）の内容を、resultsというシートのA列の次の空きセルにコピーします。Yセルをコピーするときにもセルの色を維持する必要があります。

私が得ることができたのは、これを宛先セルに入れることだけでした

= VLOOKUP(Sheet1!A3, Sheet1$A$5:$Y50, 25, TRUE)

すべて異なる名前の複数のシートで実行する必要があるため、これは機能しません。

4

2 に答える 2

0 
with activesheet
   for each c in .range("A5:A50").cells
      if c.value = .range("A3").value then
         c.offset(0,24).copy _
              worksheets("results").cells(rows.count,1).end(xlup).offset(1,0) 
      end if
   next c
end with
于 2012-02-27T19:33:14.837 に答える
0

シート名をリストしてどこかのリストで検索し、そのセル範囲にMySheetsという名前を付けてから、次のような構成を使用することで、動的な3d-Vlookup手法を使用できます。

=VLOOKUP(A3, INDIRECT("'" & INDEX(MySheets, MATCH(1, COUNTIF(INDIRECT("'" & MySheets &"'!A1:A50"), A3), 0)) & "'!A:B"), 2, 0)

これを示すサンプルワークブックが私のサイトにあります。

于 2012-02-27T22:30:33.443 に答える