返回列表 上一主題 發帖

如何大量連結sheet裡的儲存格

回復 20# syuan
沒有錯誤啊!
  1. Sub Ex()
  2.     Dim A As Range
  3.     With Worksheets("Sheet1")
  4.         .[b5] = "JIS"          '測試用
  5.         For Each A In .UsedRange
  6.             If InStr(A.Value, "JIS") > 0 And A.Value <> "" Then
  7.            'If InStr(A.Value, "JIS ") > 0 And A.Value <> "" Then '這是你的程式碼
  8.                 MsgBox A.Address
  9.             End If
  10.         Next
  11.     End With
  12. End Sub
複製代碼

TOP

        靜思自在 : 靜坐常恩己過、閒談莫論人非。
返回列表 上一主題