如何删除末尾文本，比如指定8个字符数

notycn123

求助，如何删除末尾文本，比如指定A列，直接在A列删除末尾8个字符数

因为是这样的，需要每天根据日期进行统计求和数量，但是发现A列是带有时间日期，无论如何也匹配不上，所以目前是用工具删除A列末尾8个字符，才能统计求和


所以求助大神
1、是否可以直接用VBA删除A列字符（先统计A列有多少行，然后直接在A列删除末尾8个字符）
2、或者不用VBA，在黄色区域中直接条件求和呢？


谢谢大家

cnmlgb9998

VBA 中，用ｆｏｒｍａｔ 先统一 一下 就行。

cnmlgb9998

函数如此就行。

cyq4896

参与一下..

沈默00

=SUMPRODUCT((--TEXT($A$2:$A$17,"yyyy/m/d")=$D2)*($B$2:$B$17))

沈默00

数据透视表更简单

swl4561255

=SUMPRODUCT((INT(A$2:A$17)=D2)*B$2:B$17)

qiu521119

swl4561255 发表于 2024-5-3 13:38
=SUMPRODUCT((INT(A$2:A$17)=D2)*B$2:B$17)

不错，强大

ykcbf1100

参与一下。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.5.3
   
2.     Set d = CreateObject("Scripting.Dictionary")
   
3.     r = Cells(Rows.Count, 1).End(3).Row
   
4.     arr = [a1].Resize(r, 2)
   
5.     For i = 2 To UBound(arr)
   
6.         s = DateValue(arr(i, 1))
   
7.         d(s) = d(s) + arr(i, 2)
   
8.     Next
   
9.     [d2:e1000] = ""
   
10.     Columns("d:d").NumberFormatLocal = "m月d日"
    
11.     [d2].Resize(d.Count, 2) = WorksheetFunction.Transpose(Array(d.keys, d.Items))
    
12.     [d2].Resize(d.Count, 2).Sort [d2], 1
    
13. End Sub
    

复制代码