VBA 행의 첫 번째 열의 셀 값에 따라 값이 0보다 큰 변수 범위 바꾸기

debugcn 에 게시 Dev

SkysLastChance

좋아, 나는 점점 가까워지고 있지만 객체 오류가 발생하는 것처럼 느껴집니다. Excel 시트의 이전 값을 새 요금 값으로 바꾸려고합니다. 다음은 내가하려는 작업의 예입니다.

이것은 처음 시작할 수있는 테이블 유형의 예입니다.

이것이 내가 VBA를 실행 한 후 원하는 모습입니다.

여기 내가 지금까지 가지고있는 것입니다.

 Sub Testing()
  Dim x As Integer
  Dim UpdateRng As Range
  Dim SelectRng As Range
  v = 2

  Application.ScreenUpdating = False
  ' Get count
  NumRows = Range("B2", Range("B2").End(xlDown)).Rows.Count
  Range("B2").Select
  ' Cycle through loop
  For x = 1 To NumRows
  
    Set SelectRng = Range("C" & v & ":" & "F" & v) 'Set range
    
    If "A" & v.Vaule = " " Or v.Value = "" Then GoTo NextV
    
        For Each UpdateRng In SelectRng
            If UpdateRng.Value > 0 Then
                UpdateRng.Value = Range("A" & v).Value
            End If
        Next
NextV:
        v = v + 1
       Next
      Application.ScreenUpdating = True
End Sub

빅 벤

Option Explicit모듈 맨 위에 추가 하고 모든 변수를 선언하십시오.
GoTo일반적으로 스파게티 코드를 생성하므로 사용하지 마십시오 .
End(xlUp)마지막 행을 결정하는 데 사용 합니다 .
사용하지 마십시오Select .
사용 Long대신에Integer .

Sub Testing()
    Dim ws As Worksheet
    Set ws = ActiveSheet
    
    With ws
        Dim lastRow As Long
        lastRow = .Cells(.Rows.Count, 2).End(xlUp).Row
    End With
    
    Dim i As Long
    For i = 2 To lastRow
        With ws
            If Not IsEmpty(.Range("A" & i).Value) Then
                .Range("C" & i & ":F" & i).Replace "*", .Range("A" & i).Value
            End If
        End With
    Next
End Sub

이것은 0보다 큰 값뿐만 아니라 바꿀 때 모든 값을 고려합니다. 필자 는 본질적으로 열의 셀 이 비어 있지 않은지 확인하는 것이라고 생각 합니다 .>0C:F

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

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

에서 수정2021-05-26

몇 마디 만하겠습니다

0리뷰

로그인참여 후 검토

Related 관련 기사

기사

VBA 행의 첫 번째 열의 셀 값에 따라 값이 0보다 큰 변수 범위 바꾸기

VBA 행의 첫 번째 열의 셀 값에 따라 값이 0보다 큰 변수 범위 바꾸기

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

열의 이전 값보다 큰 열에서 첫 번째 값을 찾는 방법

셀레늄의 그룹에서 첫 번째 범위 값 선택

테이블의 모든 행에 대해 행의 첫 번째 셀을 기준으로 행의 셀 범위 잠금

큰 범위의 Excel 숫자 셀 값 바꾸기

다른 열의 값을 기준으로 첫 번째 열의 값 바꾸기

다른 열의 값을 기준으로 첫 번째 열의 값 바꾸기

VBA Excel-결정된 범위에서 행의 모든 첫 번째 값의 색상 변경

Python에서 R 플롯 다시 만들기-세 번째 값의 범위에 따라 색상 변경

테이블의 각 행의 첫 번째 셀 값 가져 오기

열에서 0이 아닌 첫 번째 요소 위의 배열 값 변경

값이 특정 값과 같은 범위의 첫 번째 셀을 얻는 방법

알려진 첫 번째 셀이 있고 특정 값 셀 바로 앞에서 끝나는 열의 범위를 어떻게 정의합니까?

pandas 조건에 따라 그룹의 첫 번째 값 변경

첫 번째 열의 값이 두 번째 열의 값보다 큰 경우 영역 확인

조회 값보다 큰 목록의 첫 번째 값에 해당하는 변수 조회

VBA : 단어 표의 첫 번째 셀에 특정 값이 있으면 작업을 수행하고 그렇지 않으면 다음 표로 이동합니다.

VBA를 사용하여 값이 0 인 선택된 범위 (수식 셀)에서 셀 찾기 / 바꾸기

조건에 따라 행의 첫 번째 값이있는 열 식별

조건에 따라 첫 번째 df에서 다른 df 로의 열 값

VBA를 사용하여 열의 시작 셀과 첫 번째 빈 셀 사이의 범위 설정

Excel VBA 기능을 사용하여 열의 첫 번째 행을 선택하고 그 아래의 모든 셀을 선택하고 범위를 만듭니다.

두 번째 배열의 하위 문자열에 따라 첫 번째 배열의 해시에 키 값 쌍을 추가합니다.

EXCEL VBA : 다른 셀의 값에 따라 NUMBER 서식 변경

데이터 프레임의 각 셀 값을 열 이름, 첫 번째 열의 행 값 및 값 자체로 바꾸는 방법이 있습니까?

첫 번째 셀을 행 및 개수 일치의 다른 값과 비교

범위의 셀 값이 변경되면 자동 실행 Excel vba

EXCEL의 각 첫 번째 열 셀에 대한 두 번째 열 집합의 마지막 셀 값 찾기

두 범위의 셀 값에 따라 복사-붙여 넣기