VB.net을 사용하여 셀 내용을 역순으로 처리

Question

Excel에서 약 400 행 (변수)의 영숫자 값이있는 열 (C)이 있습니다. 내가 원하는 같은 것을, 즉 반전 할 내용 각 세포를 반대하는 것입니다

Xy1234 ---->

지금까지 내가 가진 4321yX,

Sub Rev() 
    Dim C As Excel.Range 

    For Each C In sheet.UsedRange.Columns(1).Cells 
     C(1, 8).FormulaR1C1 = "=RevStr(RC[-5])*1" 
    Next C 



End Sub 

Public Function RevStr(ByVal Rng As Excel.Range) 
    RevStr = StrReverse(Rng.Value) 
End Function 

하지만 그 대신 원하는 출력 모든 I의

H 열에 들어가는 것은 모든 행에서 #NAME?입니다.

=ReverseContent(A1) 

이 당신의 세포의 내용을 대체하지 것이다 :

Answer 1

당신은이 기능을 추가 모듈을 추가 할 수 있습니다

Option Explicit 

Public Function ReverseContent(ByVal myRange As Range) As String 
    ReverseContent = StrReverse(myRange.Value) 
End Function 

을 그리고 사용하여 시트를 호출 물론, 쉽게 복사하여 붙여 넣을 수 있습니다. 이 방법으로 다른 Excel 기능처럼 수행됩니다.

Answer 2

.net에서 RevStr을 호출하고 Excel에서 호출 할 때 결과를 셀에 쓰는 것이 좋습니다.