Private Const sheetTblName As String = "data"
Private Const SetCellsName As String = "$E$5"
Private Const ColumnsName As String = "$B$2"
Private Const ToCell As String = "$A$1"
Sub select_match()
Dim iRow As Integer
Dim iRow2 As Integer
Dim iColumn As Integer
Dim iColumn2 As Integer
Dim iRowCount As Integer
iRowCount = 0
With ActiveSheet
For iRow = .UsedRange.Row To .UsedRange.Row + .UsedRange.Rows.Count
iColumn = Range(SetCellsName).Column
iColumn2 = Range(ColumnsName).Column
shearch_str = Trim(.Cells(iRow, iColumn).Value)
If shearch_str <> "" Then
With Sheets(sheetTblName)
For iRow2 = .UsedRange.Row To .UsedRange.Row + .UsedRange.Rows.Count
ind_str = Trim(.Cells(iRow2, iColumn2).Value)
If shearch_str = ind_str Then
tt = cpyRange(iRowCount, iRow2, .UsedRange.Column, .UsedRange.Column + .UsedRange.Columns.Count)
iRowCount = iRowCount + 1
Exit For
End If
Next
End With
End If
Next
End With
End Sub
Function cpyRange(toRow As Integer, Row As Integer, startColumn As Integer, endColumn As Integer) As String
Dim iColumn As Integer
Dim iColumnCount As Integer
iColumnCount = 0
For iColumn = startColumn To endColumn
ThisWorkbook.Sheets("tmp").Cells(Range(ToCell).Row + toRow, Range(ToCell).Column + iRowCount) = Sheets(sheetTblName).Cells(Row, iColumn)
iRowCount = iRowCount + 1
Next
End Function
쉼터에 새로운 글 쓰기는 금지되었습니다. 하지만 과거의 소중한 기록 중에 꼭 다른 분들에게도 읽었으면 하는 좋은 글들은 「추천하기」를 눌러주세요.
일부 글들은 악성광고나 의미없는 스팸들일 수 있습니다. 읽는 분들에게 피해가 되거나 삭제를 희망하는 글에는 신고를 클릭해주세요. 로봇을 통하여 정기적으로 확인 및 정리를 합니다.