1樓:曾燦公升
寫了2個,第乙個寫時候看見關鍵字了,就這樣寫了
第二個是看見你說字眼,才想起來可能有其他內容,加了個模糊匹配,你試試吧,我測試過沒問題
Option Explicit
Sub cc()
Dim arr, i As Long, j As Long, y As Long
y = 0
arr = Range("a1").CurrentRegion
For i = 1 To UBound(arr, 2)
For j = 1 To UBound(arr)
If arr(j, i) = "魚" Or arr(j, i) = "蝦" Or arr(j, i) = "蟹" Or arr(j, i) = "肉" Then
y = i
Cells(j, i).Copy Cells(j, y + 2)
Cells(j, i).ClearContents
End If
Next
Next
End Sub
Sub zz()
Dim arr, vb As String, i As Long, j As Long, y As Long, q As Long
y = 0
q = 1
arr = Range("a1").CurrentRegion
For i = 1 To UBound(arr, 2)
For j = 1 To UBound(arr)
y = i
vb = arr(j, i)
If InStr(q, vb, "魚") Or InStr(q, vb, "蟹") Or InStr(q, vb, "蝦") Or InStr(q, vb, "肉") Then
Cells(j, i).Copy Cells(j, y + 2)
Cells(j, i).ClearContents
Else
q = q + 1
End If
Next
Next
End Sub
2樓:Excel手把手
正則sub main
dim arr
arr=array("魚", "蝦", "蠍")with createobject("vbscript.regexp")
. pattern=join(arr, "|")if. test(cells(1, 1)) then msgbox "包含關鍵字"
end with
end sub
python3如何填充單元格背景顏色?
慕然 Win32 開啟EXCEL 要處理的excel檔案路徑 out.file是檔案絕對路徑 要處理的excel頁 WinSheet WinBook.Worksheets Sheet1 單元格新增顏色 WinSheet.Cells 1,1 Interior.ColorIndex 3 或者Range ...
excel要如何自動累加某個單元格上方的所有單元格?
麥田呱呱 你可以試著插入乙個Excel表。這個表不是sheet。是control T出來的那個表。這個表缺省會有乙個命名,命名是隨著資料不斷擴大,這個命名的區域也會隨著擴大。求和的公式引用這個命名即可。 彎的父 從資料管理的角度來說,這個操作過程是有問題的。總計是用來展示給別人看的,插入的資料是用來...
求問 如何excel中實現 相同單元格之間的連線?
雨田青 不知道是不是這個意思 https www video 1233441716575219712 Sublx Dim num,ctDim shtAs Shape num 1ct 0Fori 1 To1000 Forj 1 To1000 IfCells i j numThenct ct 1If c...