Macro VBA - 比较两个字符串中的相似数字

我是Macro VBA中的新成员，并且遇到问题。Macro VBA - 比较两个字符串中的相似数字

我有两个字符串进行比较，如果在两个字符串中找到相似性数字，我如何获得字符串作为结果显示？

串1：1,2,3,4,6,7,8,9,10,11,12,13,19,20

串2：2,3,7,8,9 ，10,11

经过比较：

结果：2,3,7,8,9,10,11

代码：

If ActiveSheet.Cells(irow + 1, 12).Value = "" Then 

    'MsgBox "Data not found" 
Else 
    temp = vbNullString 
    temp = ActiveSheet.Cells(irow + 1, 12).Value 
    'expanddata() use to expend a sequence of numbers into a display string as below 
    ' 1,2-4,6 -> 1,2,3,4,6 
    temp = expanddata(temp) 

    If Worksheets("AI").Cells(irow + 1, 10).Value = temp Then 
     temp = ConvNum(temp) 'if whole string same then convert back to 1,2-4,6 
    Else 
     'the comparision make in here   
    End If 
Worksheets("AI").Cells(irow + 1, 10) = temp 

End If

谢谢。

来源

2016-04-04 Empty

你可以用'斯普利特（stringHere“”）'每个字符串创建两个数组，然后通过循环数组并比较内容。 –

对Tim Williams，谢谢我已经设法解决这个问题。非常感谢。 :) – Empty

在这种情况下，删除问题或将解决方案作为答案发布将会很有帮助。 –

For irow = 1 To numofrow 
     ptcolno = 12 
     If ActiveSheet.Cells(irow + 1, 12).Value = "" Then 
      'MsgBox "Data not found" 
     Else 
      temp = vbNullString 
      temp = ActiveSheet.Cells(irow + 1, 12).Value 
      temp = expanddata(temp) 

      If Worksheets("AI").Cells(irow + 1, 10).Value = temp Then 
       temp = ConvNum(temp) 
      Else 
       ' Answer 
       Temp2 = Worksheets("AI").Cells(irow + 1, 10).Value 
       arr1 = Split(Temp2, ",") 
       arr2 = Split(temp, ",") 

       temp = vbNullString 
       For i = LBound(arr2) To UBound(arr2) 
        For j = LBound(arr1) To UBound(arr1) 
         If arr2(i) = arr1(j) Then 
          temp = temp & "," & arr2(i) 
         End If 
        Next j 
       Next i 
       temp = Right(temp, Len(temp) - 1) 
       temp = ConvNum(temp) 
       ' End 
      End If 
      Worksheets(checktype & "_BUYOFF_1").Cells(irow + 1, 68) = temp

来源

2016-04-04 04:17:18 Empty

请尝试下面的代码。

Sub comparestring() 
    string1 = "1,2,3,4,6,7,8,9,10,11,12,13,19,20" 
    string2 = "2,3,7,8,9,10,11" 
    str1 = Split(string1, ",") 
    str2 = Split(string2, ",") 
    For i = 0 To UBound(str1) 
     For j = 0 To UBound(str2) 
      If str1(i) = str2(j) Then 
       If matchedcontent <> "" Then 
        matchedcontent = matchedcontent & "," & str1(i) 
       Else 
        matchedcontent = str1(i) 
       End If 
      End If 
     Next j 
    Next i 
    Range("A3").Value = matchedcontent 
End Sub

分配两个字符串字符串1和字符串2像下面结果将在单元格A3

string1=Activesheet.Range("A1").Value 
string2=Activesheet.Range("A2").Value

来源

2016-04-04 07:04:54

嗨，问题解决了，我也会试试这个。谢谢。 :) – Empty

打印尝试这种

Option Explicit 

Function CompareStrings(string1 As String, string2 As String) As String 
Dim s As Variant 

For Each s In Split(string1, ",") 
    If "," & string2 & "," Like "*," & s & ",*" Then CompareStrings = CompareStrings & s & "," 
Next s 

CompareStrings = Left(CompareStrings, Len(CompareStrings) - 1) 
End Function

可称为如下

Sub main() 

Dim string1 As String, string2 As String, stringRes As String 

string1 = "1,2,3,4,6,7,8,9,10,11,12,13,19,20" 
string2 = "2,3,7,8,9,10,11" 

stringRes = CompareStrings(string1, string2) 

MsgBox stringRes 
End Sub

来源

2016-04-04 07:11:37 user3598756

嗨，问题解决了，我也会尝试这个。谢谢。 :) – Empty

自动化p owershell打印列表到一个文本文件C：\ TEMP \ test.txt的

Sub Test() 
a = "(1,2,3,4,6,7,8,9,10,11,12,13,19,20)" 
b = "(2,3,7,8,9,10,11)" 
cmd = Shell("powershell.exe """ & a & """ | Where {""" & b & """ -Contains $_} | out-file c:\temp\test.txt", 1) 
End Sub

来源

2016-04-06 03:16:38 brettdj

嗨，我会尝试一下，谢谢。 – Empty

Macro VBA - 比较两个字符串中的相似数字

回答

相关问题