簡體   English   中英

VBA拖動公式直到最后一行

[英]VBA Dragging formula until the last row

請在我運行此代碼時,它看起來很漂亮

Sub drag()
'
' drag Macro
'

'
Dim lastRow As Long, i As Long
Dim ws As Worksheet

    Set ws = Sheets("WIP")

    lastRow = ws.Range("A" & Rows.Count).End(xlUp).Row
    Sheets("WIP").Select
    Range("N2:N" & lastRow).Formula = "=G3&"",""&L3"

End Sub

問題是當我想用此公式替換公式時:

=IF(RIGHT(F2;1)="k";"kit";IF(H2="LIM-mètre linéaire";"tissu";"composant"))

我無法運行代碼,請任何幫助:)

首先嘗試將分號更改為逗號,然后,如果這樣不起作用

嘗試

=IF(RIGHT(F2;1)="""k""","""kit""",IF(H2="""LIM-mètre linéaire""","""tissu""","""composant"""))

暫無
暫無

聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.

 
粵ICP備18138465號  © 2020-2024 STACKOOM.COM