碰碰虎的博客

根据具体的实际情况修改公共sub中的循环条件。

' 画一条黑色的直线
Private Sub addLine(sX As Single, sY As Single, eX As Single, eY As Single)

    ActiveSheet.Shapes.AddConnector(msoConnectorStraight, sX, sY, eX, eY).Select
    
    With Selection.ShapeRange.Line
      .Visible = msoTrue
      .ForeColor.ObjectThemeColor = msoThemeColorText1
      .ForeColor.TintAndShade = 0
      .ForeColor.Brightness = 0
      .Transparency = 0
    End With
End Sub

'使用直线连接单元格A 和 单元格B
Private Sub Line_AtoB(cellA As Variant, cellB As Variant)
  Dim wA As Single '宽
  Dim hA As Single '高
  Dim tA As Single '距离顶部
  Dim lA As Single '距离左侧
  
  wA = cellA.Width
  hA = cellA.Height
  tA = cellA.Top
  lA = cellA.Left
  

  Dim wB As Single '宽
  Dim hB As Single '高
  Dim tB As Single '距离顶部
  Dim lB As Single '距离左侧
  
  wB = cellB.Width
  hB = cellB.Height
  tB = cellB.Top
  lB = cellB.Left
  
  Dim sX As Single
  Dim sY As Single
  Dim eX As Single
  Dim eY As Single
  
  sX = wA / 2 + lA
  sY = hA / 2 + tA
  eX = wB / 2 + lB
  eY = hB / 2 + tB
  
  Call addLine(sX, sY, eX, eY)
End Sub

Public Sub 连接各个单元格()

  For i = 2 To 23
    '先找到第一个单元格
    For j = 1 To 8
      If Cells(i - 1, j).Value <> "" Then
        Set cellA = Cells(i - 1, j)
      End If
    Next
    '再找到第二个单元格
    For j = 1 To 8
      If Cells(i, j).Value <> "" Then
        Set cellB = Cells(i, j)
      End If
    Next
    
    '直线两端的单元格都找到之后划线
    Call Line_AtoB(cellA, cellB)
  Next
End Sub

这个需求使用公式可能达不到，所以我采用VBA代码的方式进行实现，有详细代码，亲测有效，还附有效果图，请采纳！！

Sub bianhao()
  Dim intOrder As Integer '顺序号 整型便于计算
  intOrder = 0 '首先设定为0
  Dim strOrder As String '顺序号 字符串便于回填单元格
  Dim preCat0 As String '上一个大类
  Dim preCat1 As String '上一个小类
  
  preCat0 = "" '初值赋空字符串
  preCat1 = "" '初值赋空字符串

  For r = 1 To 19 '这里根据你的图片我自己编的数据是从第1行开始到第19行结束，可以通过效果图看出来。
  '务必要根据自己的情况进行调整
    If Cells(r, 1).Value <> preCat0 Then '比对大类是否出现了变化
      preCat0 = Cells(r, 1).Value
      intOrder = 0
    End If
    
    If Cells(r, 4).Value <> preCat1 Then '比对小类是否出现了变化
      preCat1 = Cells(r, 4).Value
      intOrder = intOrder + 1
    End If
    
    '回填顺序号，务必提前将C列的单元格格式设置为文本！！！
    strOrder = Space(Len(Str(intOrder)) - 1) & Trim(Str(intOrder))
    strOrder = Replace(strOrder, " ", "0")
    Cells(r, 3).Value = preCat0 & strOrder
  Next
End Sub

务必要提前将A列和C列的单元格格式设置为文本，否则最开始的0就自动没有了。有问题请回复，无问题烦请采纳！

我提供两种模式：0、1依次填充；顺序填充函数计算奇数偶数。看效果图：望采纳！

然后使用筛选，筛选出1，然后选中行，删除即可。

可以自己在个人宏工作簿中写一个函数，然后在表格中调用该函数即可。下面的代码是个人宏工作簿的函数：

Public Function ppzC(col As Range, sum As Integer)
  Dim FinalRow As Integer
  FinalRow = col.Item(1).End(xlDown).Row
  
  Dim intSum As Integer
  intSum = 0
  For i = 1 To FinalRow
    intSum = intSum + Val(col(i, 1).Text)
    If intSum > sum Then
      Exit For
    End If
  Next
  
 ppzC = i - 1
End Function

运行效果：

Private Sub Numeric()
  For i = 1 To 5
    Dim strCellValue As String
    strCellValue = Cells(i, 1).Value
    For x = 1 To Len(strCellValue)
      Dim strValue As String
      strValue = Mid(strCellValue, x, 1)
      If IsNumeric(strValue) = True Then
        With Cells(i, 1).Characters(Start:=x, Length:=1).Font
          .Color = -16776961
        End With
      End If
    Next
  Next
End Sub

第1个循环体，不限次数，用于随机生成，判断是否是正整数，是否在10~100之间，存入数组；

第2个循环体，逐个循环数组，挑选出偶数，存入另一个数组；

第3个循环体，使用冒泡法或其他方法进行排序。

df=pd.DataFrame(allUniv) #把数据放入csv文件
    df100=df.loc[1:100] #增加一个中间变量
    df100.to_csv('D:\\demo\\xsb.csv',index=False,sep=',')

防火墙

find

有图吗？用的什么语言？

先判断是否存在，如果存在则修改当前要保存文档的文件名。

如果你有代码可以发上来，帮你修改一下。

这是用什么加密方式进行加密的？

实现了，你可以测试一下，有什么问题可以告诉我，如果可以用的话请帮忙点一下采纳，谢谢！

  Dim FinalRow As Integer
  FinalRow = Range("A65535").End(xlUp).Row
  
  Dim strContent As String
  Dim intRow As Integer
  intRow = 1
  
  For i = 1 To FinalRow
    strContent = Cells(i, 2).Value
    Dim strSplit() As String
    strSplit = Split(strContent, ",")
    For j = 0 To UBound(strSplit)
      If strSplit(j) <> "" Then
        Cells(intRow, 4).Value = Cells(i, 1).Value
        Cells(intRow, 5).Value = strSplit(j)
        intRow = intRow + 1
      End If
    Next
  Next

可以的，稍等一下下

公式这个东西比较死板，可以调节的自由度不是很大，即公式对规律性简单的事务很适用。我在此追问一下：A1=B1;A2=B2，你希望A3=B2，那么A4=?，还是B2吗，还是其他。如果是B2，那么你可以在A2单元格中输入公式：=B$2。如果是其他建议就别图省事儿，有可能会更费事儿。