한 시트에서 다른 시트로 셀 값을 복사하고 특정 값이있는 셀 근처에 붙여 넣습니다.

debugcn 에 게시 Dev

Yachninho

직장에서 숫자 목록을 다른 시트에 복사해야하는 끊임없는 작업이 있습니다. 해당 시트에서 특정 값 (열에서 반복됨)이있는 셀 오른쪽에있는 셀에 해당 숫자를 하나씩 붙여 넣어야합니다. (대상 테이블은 "מודל תגובה"값으로 정렬되며 숨겨진 행이 있습니다.

설명하기 어렵 기 때문에 이미지가 잘 되길 바랍니다.

적절한 코드를 작성하려고했지만 계속 다른 오류가 발생했습니다. 셀 값을 대상 셀에 복사 할 때 문제가 발생하는 것 같습니다.

Dim i As Integer
i = 4

Do While IsEmpty(Cells(i, 1).Value) = False
    Worksheets(1).Select
    Cells(i, 1).Copy
    Worksheets(2).Select
    Cells.Find(What:="מודל תגובה", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
        ActiveCell.Offset(0, -1).Activate

    If IsEmpty(ActiveCell.Value) = False Then
         Selection.FindNext(After:=ActiveCell).Activate
         ActiveCell.Offset(0, -1).Paste
    Else
         ActiveCell.Offset(0, -1).Select
         ActiveCell.Paste  
    End If

    i = i + 1
Loop

엉뚱한 코드 (문자 그대로 내 첫 번째 매크로)에 대해 죄송합니다.

Pᴇʜ

해결책은 필터링 된 범위의 보이는 셀만 반복하는 것입니다.

"מודל תגובה"이 코드를 실행하기 전에 대상이 필터링되었는지 확인하십시오 . 이 코드를 실행하기 전에 두 번째 이미지처럼 보일 필요가 있습니다.

Dim SourceSheet As Worksheet
Set SourceSheet = Worksheets(1)

Dim DestinationSheet As Worksheet
Set DestinationSheet = Worksheets(2)

Dim LastRow As Long
LastRow = DestinationSheet.Cells(DestinationSheet.Rows.Count, "B").End(xlUp).Row

Dim VisibleCells As Range
On Error Resume Next 'next line errors if no visible cells so we turn error reporting off
Set VisibleCells = DestinationSheet.Range("A2", "A" & LastRow).SpecialCells(xlCellTypeVisible)
On Error Goto 0 'turn error reporting on or you won't see if other errors occur

If VisibleCells Is Nothing Then  'abort if no cells are visible in the filter
    MsgBox "No cells to paste at"
    Exit Sub
End If

Dim SourceRow As Long
SourceRow = 4   'start row in your source sheet

Dim Cell As Range
For Each Cell In VisibleCells.Cells    'loop through visible cells
    Cell.Value = SourceSheet.Cells(SourceRow, "A").Value 'copy value
    SourceRow = SourceRow + 1  'incerease source row
Next Cell

시트 이름 DestinationSheet과 SourceSheet함께 정의해야 합니다.

이 기사는 인터넷에서 수집됩니다. 재 인쇄 할 때 출처를 알려주십시오.

침해가 발생한 경우 연락 주시기 바랍니다[email protected] 삭제

에서 수정2021-05-27

몇 마디 만하겠습니다

0리뷰

로그인참여 후 검토

Related 관련 기사

기사

한 시트에서 다른 시트로 셀 값을 복사하고 특정 값이있는 셀 근처에 붙여 넣습니다.

한 시트에서 다른 시트로 셀 값을 복사하고 특정 값이있는 셀 근처에 붙여 넣습니다.

한 행에서 특정 셀을 복사하여 다른 워크 시트의 다른 셀에 붙여 넣습니다.

한 워크 시트에서 다른 워크 시트로 셀을 복사하여 붙여넣고 값을 곱합니다.

한 워크 시트에서 셀 범위를 복사하여 수식이 아닌 값으로 다른 워크 시트에 붙여 넣습니다.

Excel-행에서 특정 텍스트를 검색 한 다음 해당 값을 복사하여 특정 셀에 붙여 넣습니다.

특정 값을 복사하여 조건에 따라 Google Sheet의 다른 시트의 특정 셀에 붙여 넣습니다.

특정 셀을 복사하여 다른 시트에 붙여 넣기

한 워크 시트에서 다른 워크 시트로 특정 셀 복사 및 붙여 넣기

한 시트에서 다른 시트로 일부 셀을 복사 / 붙여 넣는 Excel

Google 스프레드 시트 + Apps Scripts, 한 시트에서 다른 시트로 복사 / 붙여 넣기, 특정 열의 첫 번째 빈 셀에 붙여 넣기 (B)

Excel-선택한 셀을 복사하여 다른 워크 시트의 열 끝에 붙여 넣습니다.

열의 특정 셀을 복사하고 다른 워크 시트에 붙여 넣기

다른 행을 추가하고 다른 시트의 셀 값을 기준으로 값을 붙여 넣습니다.

두 번 클릭시 셀을 복사하고 다른 시트의 다른 셀에 자동으로 붙여 넣기

셀 배경색을 복사하여 다른 시트의 해당 셀에 붙여 넣습니다.

한 시트의 여러 행 및 열에서 다른 시트로 셀 값을 복사하는 방법

값을 다른 시트의 일치하는 셀에 붙여 넣기

한 시트에서 다른 시트로 셀 범위를 복사하여 붙여 넣은 다음 원래 셀에서 데이터 지우기

미리 결정된 열의 다른 워크 시트에 특정 셀 값을 붙여 넣는 VBA

Google 스프레드 시트 한 셀을 복사하여 다른 셀에 붙여 넣기

특정 열의 셀을 복사하여 조건에 따라 다른 Sheet의 특정 열에있는 셀에 붙여 넣기 (값)하는 VBA 코드

단일 셀을 다른 시트에 복사하고 18 개 셀에 붙여넣고 소스 시트에 공백이 생길 때까지 반복하는 방법

복사하는 방법 셀 값을 붙여 넣는 방법, 셀에 0 이상이 포함 된 경우 루프로 다른 셀에 붙여 넣기

범위에서 가장 최근의 인접하지 않은 셀을 복사하고 동일한 통합 문서의 다른 워크 시트에있는 연속 범위에 붙여 넣으려고합니다.

셀을 복사하고 다른 곳에 붙여 넣는 Excel vba 매크로

Google 시트의 이벤트 변수가 다른 셀의 값을 복사하여 붙여 넣은 셀의 값을 가져 오지 않습니다.

다른 시트에서 다음 빈 셀을 검색하고 붙여 넣습니다.

첫 번째 셀의 값이 변경 될 때 행의 셀 범위를 복사하고 다른 시트에 붙여 넣지 만 동일한 행 / 범위에 붙여 넣는 Excel VBA 코드

다음 셀을 아래로 복사하고 동일한 셀에 붙여

다른 데이터 테이블에 따라 특정 셀에 값을 Excel로 붙여 넣는 방법