把符合兩條件的單元格的整行復(fù)制到另一個表中的VBA
代碼如下：
Sub mycopy()Dim x, k As Integer, rg As RangeWith Sheet1For x = 1 To 14If .Cells(x, 1) > 10 And .Cells(x, 1) < 14 Thenk = k + 1If k = 1 Then Set rg = .Cells(x, 1)Set rg = Union(rg, .Cells(x, 1))End IfNext xEnd Withrg.***.copy ***.range("a1")***.activateEnd Sub
代碼是意圖是把本表第一列中大于10并且小于14的單元格所在的行復(fù)制到sheet2工作表中
可以用循環(huán)進行判斷,，然后把符合條件的單元格寫入到另一個表就行了
相關(guān)推薦
便查問答是一款實用的網(wǎng)絡(luò)熱門知識問答平臺,，專注于分享你不知道的知識、經(jīng)驗及生活問題,，在這里所有人都能找到答案歡迎網(wǎng)友參與討論,。