한 열의 데이터에 대한 계산 수행 및 Excel에서 다른 열로 결과 이동.

Question

이것은 VBA를 처음 사용하기 때문에 VBA의 구문이 좋지 않습니다 (이전에 C++ 및 matlab을 배웠습니다).

데이터 열을 가져오고 (3을 곱하는 것과 같은) 간단한 계산을 수행하고 새로운 열에 넣으려고합니다.

이제 정렬하려는 데이터에 중복 된 데이터가 있습니다. 예를 들어,이 열의 내용은 다음과 같습니다.

1 
2 
3 
4 

2 
3 
6 
8  
9 
2 
3 

반복되는 숫자 및 경우에 따라 공백이 포함될 수 있습니다. 지금 나는 분류에 대해 너무 걱정하지 않는다. 하나의 열에서 여러 개의 배열을 가져 와서 다른 열을 다음 열에 배치하는 데 문제가 있습니다. 어떻게해야합니까? 아래의 코드는 문자열에 적용됩니다. 어떻게 조정할 수 있습니까? 감사!

여기 내 시도입니다 :

Sub unique() 
    Dim arr As New Collection, a 
    Dim aFirstArray() As Variant 
    Dim i As Long 

    aFirstArray() = Range("E:E") 
    ' On Error Resume Next 
    For Each a In aFirstArray 
     arr.Add a, Str(a) 
     'I tried changing Str(a) to Integer(a), apparently it doesn't work like this in Excel 
    Next 

    For i = 1 To arr.Count 
     Cells(i, 3) = arr(i) 
    Next 

End Sub 

Answer 1

이것은 당신의 생각 과정과 정확히 일치하지 않을 수 있습니다,하지만 본질은 일부 다른 VBA 도구를 사용하여, 거기라고 생각합니다. 질문이 있거나 문제가 해결되지 않으면 알려주십시오.

이 코드는 중복 된 셀과 빈 셀을 무시합니다. 그것들을 당신의 목록에 보관하고 싶다면 조정하기가 아주 쉽습니다.

Sub unique() 

Dim i As Integer 
Dim dict As New Dictionary 
Dim cel As Range 
Dim rng As Range 

Set rng = Range("A1:A12") 

i = 1 
For Each cel In rng 
    If cel <> vbNullString Then 
     If Not dict.Exists(cel.Value) Then 
      dict.Add cel.Value, i 
      i = i + 1 
     End If 
    End If 
Next 

For i = 1 To dict.Count - 1 
    Cells(i, 3) = dict.Keys(i) 
Next 

End Sub