返回列表 上一主題 發帖

vba寫法

本帖最後由 n7822123 於 2020-12-30 00:38 編輯

回復 1# sillykin

用VBA批次寫公式嗎~?

C6~c200
C6=IF(D6="","",$C$4)
C7=IF(D7="","",$C$4)
C8=IF(D8="","",$C$4)
至C200

[C6:C200] = "=IF(D6="""","""",$C$4)"

F6~F200
F6公式=IF(ISNA(VLOOKUP($A6,說明!$B:$E,3,FALSE)),"",(VLOOKUP($A6,說明!$B:$E,3,FALSE)))
F7公式=IF(ISNA(VLOOKUP($A7,說明!$B:$E,3,FALSE)),"",(VLOOKUP($A7,說明!$B:$E,3,FALSE)))
F8公式=IF(ISNA(VLOOKUP($A8,說明!$B:$E,3,FALSE)),"",(VLOOKUP($A8,說明!$B:$E,3,FALSE)))
至F200

[F6:F200] = "=IF(ISNA(VLOOKUP($A6,說明!$B:$E,3,FALSE)),"""",(VLOOKUP($A6,說明!$B:$E,3,FALSE)))"

G6~G200
G6=IF(ISNA(VLOOKUP($A6,說明!$B:$E,4,FALSE)),"",(VLOOKUP($A6,說明!$B:$E,4,FALSE)))
G7=IF(ISNA(VLOOKUP($A7,說明!$B:$E,4,FALSE)),"",(VLOOKUP($A7,說明!$B:$E,4,FALSE)))
至G200

[G6:G200] = "=IF(ISNA(VLOOKUP($A6,說明!$B:$E,4,FALSE)),"""",(VLOOKUP($A6,說明!$B:$E,4,FALSE)))"

不要懷疑,就是這麼簡單~

程式比你的說明還少~ ^.^
程式是依需求寫的,需求表達不清楚
或者沒有上傳附件,愛莫能助

TOP

        靜思自在 : 【是否發揮了良能?】人間壽命因為短暫,才更顯得珍貴。難得來一趟人間,應問是否為人間發揮了自己的良能,而不要一味求長壽。
返回列表 上一主題