VBAで作業している私は、特定の行数を貼り付けようとしている単純なワークシート関数を持っています。
Dim RowCount As Integer
RowCount = Worksheets("Sheet1").Range("H2").End(xlDown).Row
With Worksheets("Sheet1")
.Range("L2" & RowCount).Value = "=IF(H2=""TRUE"",G2,"""")"
.Range("M2" & RowCount).Value = "=IF(I2=""TRUE"",G2,"""")"
.Range("N2" & RowCount).Value = "=IF(J2=""TRUE"",G2,"""")"
.Range("O2" & RowCount).Value = "=IF(K2=""TRUE"",G2,"""")"
End With
私の計算オプションは自動に設定されているので、それは問題ではありません。関数内の文字列にも "" を使用しています。
このコードはワークシート関数を本来あるべき場所に配置しますが、ロジックは機能しません。それは常に偽になります。しかし、関数 (I2、J2、K2) によって参照されている H2 セルをクリックしてセルをエスケープすると、H2 のテキストが左にシフトし、数式が機能します! 何千もの広告申込情報に対してこれを行いたくありません。私は何をすべきか?