新聞財經娛樂♬資訊 News Economy

Public Sub Cell2Cell(ByRef Source_Range As Range, ByRef Target_Range As Range)Dim i As Integeri = 1For Each c In Source_Range.Cells    If IsNumeric(c.Value) Then        Target_Range.Cells(i) = c.Value    Else        Target_Range.Cells(i) = ""    End If    i = i + 1NextEnd SubPublic Sub Matching_Cell2Cell(ByRef Source_Range As Range, ByRef Crit_Range As Range, ByRef Copy_Range As Range)    Source_Range.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Crit_Range, CopyToRange:=Copy_Range, Unique:=FalseEnd Sub                                  

1:2:3:4:5:6:7:8:9:10:11:12:13:14:15:16:17:18:19:20:21:22:23:24:

I use the first function to copy cells from one cell range to another, but only cells that have a numeric value. In this scenario, I only have one row of cells in a range that I'm copying. What I'm looking to do is combine these two functions into one, where I can basically filter multiple rows, based on a range that defines my filter, and then copy ONLY numeric values to another range where the cells are in a different orientation. I know in advance that my filter would always yield only one row of results.

To give an example, I want to take a range of data like A1:F200, filter that list down to one row based on a filter that would be looking at the data in column A. After my range has been filtered and I have one row of data that sits horizontally from say cells A9:F9 in "Sheet 1" I would like to copy only the numeric data to a range in "Sheet 2" to cells I9:I14.

Can someone please tell me how I would do this? Thank you!