我试图搜索表1上的D列,并抓取一定范围内(10-100)的值,并将它们填充到表2中的一行(例如:行20),并跳过不在该范围内的值,而不在结果中留下间隙/空白单元格。但是,最新的值会覆盖旧的单元格值(因此,在第2页上没有10、11、12,而只有12、12、12)。此外,我还没有能够弄清楚如何让值填充在一个单独的行(如行C3:Z3),所以他们一直填充在一列。
方法一:
Sub SearchLoop
Range("Sheet1!D").Select
Do Until IsEmpty(ActiveCell)
If ActiveCell.Value > 10 And ActiveCell.Value < 100
Then Range("Sheet2!A:A").Value = Selection.Value
ActiveCell.Offset(1, 0).Select
Loop
End Sub
方法二:
Sub SearchLoop
Dim cell As Range
For Each cell in Sheets("Sheet1").Range("D:D")
If cell.Value > 10 And cell.Value < 100 Then
Range("Sheet2!A").Value = cell.Value
End If
Next Cell
End Sub
1条答案
按热度按时间58wvjzkj1#
尝试