광고

묻고답하기

javascript

  • LV 3 playboy
  • 비추천 0
  • 추천 0
  • 조회 1607
  • 2017.09.27 22:14
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

추천 0 비추천 0

 微信扫一扫(위챗공유)
  • 트위터
  • 페이스북
  • 구글플러스
LV 3playboy
  • MP : 5,576
  • SP : 0
XP (57%)
Lv 3
등록된 서명이 없습니다.
현재 게시판에서 작성한 게시물 더보기
묻고답하기 게시판 게시물 목록
번호 제   목 이름 날짜 조회
33880 취직비자 만들어줄 회사찾습니다~ 사례는 충분히 할께요 그날을위해 02.19 1533
33879 돈바꾸기 첨부터0916 02.19 1311
33878 3월중순에 연길에서 한국경유로 동경오시는분 라벤다 02.18 1266
33877 정품똑같은 수입브랜드 아동복을 싼 가격에살려면 컴온 ~ amy731 01.31 1507
33876 急!急!急!청개구리님 도와주세요 2 gangcai 01.27 1983
33875 중국에 송금하실분 연락주서요 jjyyxx 01.26 1543
33874 急急急急!! 想找中医看病 2 큐큐 01.23 1512
33873 급 중국 송금 건 ysun1218 01.22 1497
33872 급합니다••• 여기 봐주세요 2 ZYT 01.18 1855
33871 通称名にかんして 3 mimirin 01.14 1794
33870 물류에 대해 알려주세요 3 pool007 01.06 1664
33869 중국인이 일본 취업비자를 받으려면 1 PETER 01.02 1782
33868 중국에 송금 3 again2 01.01 1643
33867 여러분 새해복많이 받으세요. LXGE 01.01 1398
33866 일본엔 받고 중국에서 인민페 드립니다, 2020 12.31 1383
33865 北海道札幌 1 2020 12.31 1527
33864 돈 바꾸실분 계세요? 행복1 12.28 1371
33863 조선족이 운영하고있는 대안국제여행사에 연락주세요. LXGE 12.27 1521
33862 영화 보려고? 1 꽝똥이 12.22 1622
33861 한국에 계시는 장모장인 일본으로 초청할시의 신청자료에 대하여 질문드립니다. 2 himawaridesu 12.20 1435
33860 在日朝鮮族老人 Orz 12.19 1451
33859 바꾸실분 WB 12.19 1303
33858 저의 아이에게 투표에 도움 부탁드립니다. 1 깝깝 12.16 1435
33857 微信朋友圈 친구합시다. 록색초원 12.15 1484
33856 出售超霸气电车卡,省钱&赚钱的电车卡 빠뜨릭 12.13 1111
33855 IQOS중국가지고갈때 1 kinko 12.06 1834
33854 가족들이 리은희씨를 애타게 찼습니다. 유미 12.05 1706
33853 중국 통장에 돈 넣고 싶은데... 현금으로 드릴테니 누구 좀 도와주십쇼.. 1 brotherkwan 12.05 1577
33852 급히 돈 바꾸려고합니다 1 우미 12.03 1364
33851 確定申告書について 2 히망888 11.27 1650
33850 개인적으로 엔을 바꾸고 십습니다 2020 11.24 1334
33849 微信朋友圈 친구 합시다 비젼페밀리 11.22 1439
33848 民宿大阪营业中,个人 团体 都可接纳 시르시 11.20 1609
33847 需要机票请找大安国际旅行社 (^0^) LXGE 11.19 1609
33846 일본에서 물류회사하는곳. 화장품도매상가 아시는분 도와주세요 2 딸기쨈 11.17 1796
33845 동화책 시리즈 등등 양도하실분 나리 11.14 1425
33844 LCD OLED 설비 제작 도움을 요청합니다... LTRSCHINA 11.13 1181
33843 머 좀 물어보기쇼 3 군e 11.10 1512
33842 中国出生証明書는 어디서 받는가요? 2 커피love 11.08 1551
33841 급급급 알려주세요 2 기쁨인생 11.07 1535