按单元格相加排序

ba3259878266

按单元格相加排序 谢谢各位老师帮忙

719404338

1. 
   
2. Sub test6()
   
3.    Dim i%, j%
   
4.    j = 1
   
5.   For i = 1 To [h65536].End(3).Row
   
6.     If (Val(Mid(Range("h" & i), 2, 1)) + Val(Mid(Range("h" & i), 3, 1))) Mod 10 = [j1] Then
   
7.    Range("k" & j) = Range("h" & i)
   
8.    j = j + 1
   
9.    End If
   
10.     Next i
    
11. End Sub

复制代码

ba3259878266

719404338 发表于 2018-9-1 17:04

师傅 谢谢 J1里的数字是变化的  从0---9

ba3259878266

719404338 发表于 2018-9-1 17:04

师傅 谢谢 J1里的数字是变化的  从0---9

ba3259878266

719404338 发表于 2018-9-1 17:04

师傅 麻烦你修改一下 J1有可能是 0---9  十位 百位大于10的 取最后一位 如 8+9=17  取 7  谢谢

一把小刀闯天下

'估计差不多，自己试一下

Option Explicit

Sub test()
  Dim arr, i, t, sum, n
  arr = Range("h1:h" & Cells(Rows.Count, "h").End(xlUp).Row)
  sum = [j1].Value: [k:k].ClearContents
  For i = 1 To UBound(arr, 1)
    t = Val(arr(i, 1))
    If t > 99 Then
      t = (t Mod 1000) \ 10
      If t \ 10 + t Mod 10 = sum Then n = n + 1: arr(n, 1) = arr(i, 1)
    End If
  Next
  If n = 0 Then Exit Sub
  For i = 1 To n - 1
    For j = i + 1 To n
      If arr(i, 1) > arr(j, 1) Then
        t = arr(i, 1): arr(i, 1) = arr(j, 1): arr(j, 1) = t
      End If
  Next j, i
  [k1].Resize(n) = arr
End Sub

ba3259878266

一把小刀闯天下 发表于 2018-9-1 18:55
'估计差不多，自己试一下

Option Explicit

师傅 谢谢你 还有 就是 十位 百位相加 大于10的 取个位 如 4+8=12  取2  把9484 选出来 K列去除重复

一把小刀闯天下

'就这条件，自己修改。满意来朵小花

把If t \ 10 + t Mod 10 = sum Then n = n + 1: arr(n, 1) = arr(i, 1)  改成：

If t \ 10 + t Mod 10 = sum Or (t \ 10 + t Mod 10) Mod 10 = 2 Then n = n + 1: arr(n, 1) = arr(i, 1)

719404338

ba3259878266 发表于 2018-9-1 18:42
师傅 麻烦你修改一下 J1有可能是 0---9  十位 百位大于10的 取最后一位 如 8+9=17  取 7  谢谢

已修改，你看一下，还是在2楼。

ba3259878266

一把小刀闯天下 发表于 2018-9-1 19:11
'就这条件，自己修改。满意来朵小花

把If t \ 10 + t Mod 10 = sum Then n = n + 1: arr(n, 1) = arr(i, ...

师傅 不对 是这样的   J1是  十位 百位相加后的个位  把符合条件都选出来