返回列表 上一主題 發帖

[發問] vba 操作ie匯入資料

你的B20 , C20都是固定位置嗎?
若是
x = IIf(InStr(Join(Application.Transpose([A1:A50].Value), ""), "如果") > 0, [B20], [C20])
若不是固定位置而是相對於 "如果" 儲存格
問題又怪怪的,沒找到 "如果" 儲存格,哪來的C20

TOP

回復 15# cji3cj6xu6
  1. Sub TEST()
  2.     Dim f
  3.     With ActiveSheet
  4.         Set f = .[A1:A50].Find(What:="如果", LookIn:=xlValues, LookAt:=xlPart)
  5.         .[C55] = IIf(f Is Nothing, "找不到", f.Offset(, 1).Value)
  6.     End With
  7. End Sub
複製代碼

TOP

回復 15# cji3cj6xu6
更正一下(因為IIF正反都會先運算會有問題)
  1. Sub TEST()
  2.     Dim f
  3.     With ActiveSheet
  4.         Set f = .[A1:A50].Find(What:="如果", LookIn:=xlValues, LookAt:=xlPart)
  5.         If f Is Nothing Then
  6.             .[C55] = "找不到"
  7.         Else
  8.             .[C55] = f.Offset(, 1).Value
  9.         End If
  10.     End With
  11. End Sub
複製代碼

TOP

        靜思自在 : 太陽光大、父母恩大、君子量大,小人氣大。
返回列表 上一主題