Excel의 특정 셀에서 find replace Vbscript 함수를 사용하고 싶습니다. 현재 코드 : Dim myxl
Dim mywb
Dim mysh
Set myxl = CreateObject("Excel.Application")
myxl.Visible = True
myxl.DisplayAlerts = False
myxl.EnableEven
아래 코드와 함께 "Range 클래스의 부분합 메서드가 실패했습니다"라는 오류 메시지가 나타납니다. 이 문제를 어떻게 해결할 수 있으며 부분적으로 변경되는 열의 수를 수용 할 수 있도록 코드를 다시 작성할 수 있습니까? 그 배열이 있다면 Range("A1").Select
Selection.Subtotal GroupBy:=3, Function:=xlSum,
입력 된 암호를 기반으로 Sheet1을 필터링하는 VBA 코드를 만들려고합니다. 나는 2 개의 시트를 가진 엑셀 파일을 가지고 있고 sheet2는 컬럼 B의 패스워드와 컬럼 A의 "필터"를 가지고있다. 나는 엑셀 파일을 배포하고 당사자들에게 해당 패스워드를 줄 것이고, 패스워드를 다른 사람들의 패스워드로 입력 할 것이다. 파티가 삭제됩니다. 코드 : Sub
Dim j as integer
Dim b as integer
Dim arrayMaterial as string
Dim array1()
For j=1 to numrows-1
For i = 1 To 3
ReDim Preserve array1(0 To 3, 0 To numrows)
array1(i, j) = Cells(j +
나는 최신 시트를 가져와 이전 시트를 지우려고하지만 변수를 저장할 수 없습니다. 첫 번째 루프는 2 차원 배열에 값을 저장하기위한 것입니다. 두 번째 루프는 최신 시트를 가져 오는 것입니다. Sub WorksheetEraseOld()
Dim ShtNames() As String
Dim SaveSheet As String
ReDim
이 작업을 수행 할 수 없습니다. 이 vlookup 수식을 셀 B10에 넣고 A10을 올려다 보겠다.하지만 이름이 나에게 줄까? 값은 매번 A10 대신 실제 공식에서 'A10'으로 나오므로 누구든지 도와 줄 수 있습니까? Range("B10").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(A10,'Sheet2'!A:B
다음 루프를 사용하여 다른 셀의 마지막으로 사용한 셀의 레벨 인 셀에 도달 할 때까지 루프를 수행했습니다. 그러나 그것은 마지막으로 사용 된 셀을 훨씬 넘어선 다. 괜찮습니다.하지만 30,000 행이 넘는 경우 특히 더 오래 실행해야합니다. 누구든지이 아이디어를 가지고 있습니까? Dim i As Long
lMaxRows = Cells(Rows.Count,
쿼리 테이블을 만드는 코드가 있습니다. 그것을 생성 한 후 원하는 데이터를 꺼낸 다음 해당 쿼리를 완료합니다. 나는 그것을 즉시 지우고 싶기 때문에 공간을 차지하지 않는 많은 쿼리 테이블을 원하지 않는다. 내가 사용한다 QueryTables.Delete
ActiveWorkbook.Connections.Item(i).Delete
문제는 쿼리 테이블 연
내가하려고하는 것은 프로그램을 통해 셀의 열에서 특정 값을 찾고 값을 붙여 넣은 후 하나의 셀과 일치하는지 확인하는 것입니다. match는 관련 셀과 셀 행을 삭제합니다. 어떤 일이 일어나고있는 것은 프로그램의 특수 붙여 넣기 부분이 작동하지만 관련 셀이 삭제되지 않는다는 것입니다. 나는 당신이 행을 삭제할 것 같다 일치 Dim j As Integer
D