2013-02-16 2 views
1

내가 이제 마지막으로 사용 rows-복사 데이터가

rowNo=objExcel.Activeworkbook.Sheets(1).UsedRange.Rows.count

를 얻기 위해이 코드를 사용하고, 내가 사용하는 마지막 행 개까지 특정 컬럼의 데이터를 복사 할 .

// 마지막 행을 찾을 수있는 잘못된 방법 rowNo //

Set Source=objExcel.Activeworkbook.Sheets(1).Column("G")

Source.Copy

답변

0

을 사용하는 어떤 코드 아래에 작성. 마지막 행 찾는 방법은 link을 참조하십시오. 마지막 행은 단순히 ws 워크 시트 개체입니다

ws.Range("G1:G" & rowNo).Copy 

을 복사하려면이 코드를 사용 찾았 으면

.

+0

응답 해 주셔서 감사합니다. 그냥 하나의 질의 - 내가 엑셀의 모든 값을 붙여 넣기하고, 모든 값은 내가 그것을 하나 하나 ... 설정 이명 령 = objExcel2을 붙여 넣을 수 있습니다 one-another.How에 겹쳐지고 있습니다. Activeworkbook.Sheets (1) .Columns ("A") dest.PasteSpecial – Praveenks

+0

죄송합니다. 이해가되지 않습니까? 열의 데이터를 행으로 조 변경하고 싶습니까? –

+0

아니요, 폴더에 일부 Excel 파일이 있습니다. 특정 열 값을 복사하여 하나의 Excel 시트에 넣으려고합니다. 그 도움으로 제안한 것은 모든 값을 복사 할 수 있지만 붙여 넣을 때입니다. 그것을 새로운 엑셀 시트에 넣으십시오.이 모든 값들은 서로 붙여 붙여지고 있습니다.이 모든 값을 하나씩 붙여 넣기를 원합니다 (첫 번째 시트에 12 개의 값이있는 경우 두 번째 시트 값 뒤에 붙여 넣기와 같이). 등등 ..) – Praveenks