字符串的比较

Sub Test()
  Dim strA As String
  Dim strB As String
  strA = "dqexcel"
  strB = "dqexcel123"
  Debug.Print strA < strB
End Sub

>>> a='dqexcel'
>>> b='dqexcel123'
>>> a==b    #值相等时返回True
False
>>> a!=b   #值不相等时返回True
True

>>> a is b    #内存地址相同时返回True
False

>>> a in b    #'dqexcel'是否包含在'dqexcel123'中
True
>>> 'd' not in b    #'d'是否不包含在'dqexcel123'中
True

StrComp(String1, String2[, Compare])

Sub Test2()
  Dim strA As String
  Dim strB As String
  Dim strC As String
  Dim varComp1, varComp2, varComp3
  strA = "dqexcel"
  strB = "dqexcel123"
  strC = "Dqexcel"
  varComp1 = StrComp(strA, strB)  '区分大小写
  varComp2 = StrComp(strA, strC)  '
  varComp3 = StrComp(strA, strC, vbTextCompare)  '不区分大小写
  Debug.Print varComp1, varComp2, varComp3
End Sub

-1             1             0

>>> import operator as op
>>> op.lt('a';,'b')    #'a'是否比'b'小
True
>>> op.eq('a123','a12b')    #'a123'与'a12b'是否相等
False
>>> op.ge('forpython','forvba')    #'forpython'是否大于或等于'forvba'
False

>>> 'Abc123'.isalnum()    #字符串全是字母和数字
True
>>> 'Abc123'.isalpha()    #是否全是字母
False
>>> '123123'.isdigit()    #是否全是数字
True
>>> '123.123'.isnumeric()    #是否全是数字
False
>>> 'abc'.islower()    #字母是否全是小写
True
>>> max('Abc')    #最大的字母
'c'

Sub Test()
  Dim intK As Integer  '记录省份个数
  Dim intN As Integer  '记录某籍姓名个数
  Dim intR As Integer  '记录数据行数
  Dim sht As Object  '工作表对象
  Set sht = ActiveSheet
  Dim intI As Integer
  Dim intJ As Integer
  Dim bolExist As Boolean  '省份是否已经存在

  '数据行数
  intR = sht.Range("B1").End(xlDown).Row

  '省份去重，去重结果放在第4列
  sht.Range("D2").Value = "河北"
  intK = 1
  For intI = 3 To intR
    '遍历工作表中第2列数据
    bolExist = False
    For intJ = 2 To intK + 1
      '遍历已经得到的唯一省份
      If sht.Cells(intI, 2).Value = sht.Cells(intJ, 4).Value Then
        '如果有一个相等，则省份已经存在
        bolExist = True
      End If
    Next
    '如果不存在，则在第4列追加省份名称
    If Not bolExist Then
      intK = intK + 1
      sht.Cells(intK + 1, 4).Value = sht.Cells(intI, 2).Value
    End If
  Next

  '获取各省同乡姓名，添加到省份名称后面
  '遍历唯一省份名称
  For intI = 1 To intK
    intN = 1
    For intJ = 2 To intR  '遍历第2列数据
      '如果第2列当前数据与唯一省份名称相同
      If sht.Cells(intJ, 2).Value = sht.Cells(intI + 1, 4).Value Then
        '把姓名追加到省份名称后面
        sht.Cells(intI + 1, 4 + intN).Value = sht.Cells(intJ, 1).Value
        intN = intN + 1
      End If
    Next
  Next
End Sub

import xlwings as xw  #导入xlwings包
#从constants类中导入Direction
from xlwings.constants import Direction
import os  #导入os包
#获取本py文件的当前路径
root = os.getcwd()
#创建Excel应用，可见，没有工作簿
app=xw.App(visible=True, add_book=False)
#打开数据文件，可写
bk=app.books.open(fullname=root+\
    r'\找老乡.xlsx',read_only=False)
sht=bk.sheets(1)  #获取第1个工作表
#工作表中第2列数据最大行号
rows=sht.api.Range('B1').End(Direction.xlDown).Row
n=1  #记录当前行号
#遍历第2列，获取唯一省份名称
for i in range(2,rows+1):
    ex=False
    #在第4列显示唯一省份
    #遍历已经获取的唯一省份
    for j in range(1,n+1):
        if sht.cells(i,2).value==sht.cells(j+1,4).value:
            #如果有一个相等，则省份已经存在
            ex=True
    #如果不存在，则在第4列追加省份名称
    if not ex:
        n+=1
        sht.cells(n,4).value=sht.cells(i,2).value
#获取各省同乡姓名，添加到省份名称后面
#遍历唯一省份名称
for i in range(n):
    k=1
    for j in range(2,rows+1):
        #如果第2列当前数据与唯一省份名称相同
        if sht.cells(j,2).value==sht.cells(i+1,4).value:
            #把姓名追加到省份名称后面
            sht.cells(i+1,4+k).value=sht.cells(j,1).value
            k+=1