用VBA删除不含任一关键词的行

jsfc

1、表格只有A列，行数不等
2、从A8开始，删除不含任意一个特定关键词的行，关键词为：“：”和“0|”和“1|”和“理由”
3、A列单元格字数超过100个的部分，用“……”代替
4、然后在桌面生成以“A1"命名的TXT文档

sub麻辣君

喏喏喏，查收查收

sub麻辣君

原表我给你保留了，TXT里的删了的

sub麻辣君

这一个是原表上也删了的

sub麻辣君

前面的加了一个省略号的条件，这个附件加上了

jsfc

sub麻辣君 发表于 2019-9-15 11:53
前面的加了一个省略号的条件，这个附件加上了

谢谢，在测试，结果正常，另外请教下截图中：将表“培训”的A列，自“A1”到“最后一个非空单元格”数据，导出到桌面，并以“A1"命名的TXT文档，如何表达
（注：A列中间有一空行，需要保留）

sub麻辣君

jsfc 发表于 2019-9-15 12:36
谢谢，在测试，结果正常，另外请教下截图中：将表“培训”的A列，自“A1”到“最后一个非空单元格”数据 ...

Sub test()
   Workbooks.Add
   ThisWorkbook.Sheets("培训").[a:a].Copy ActiveWorkbook.Sheets(1).[a:a]
   ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & Range("a1") & ".txt", XlFileFormat.xlCSV
   ActiveWorkbook.Close savechanges:=False
End Sub

jsfc

sub麻辣君 发表于 2019-9-15 14:28
Sub test()
   Workbooks.Add
   ThisWorkbook.Sheets("培训").[a:a].Copy ActiveWorkbook.Sheets(1).[ ...

谢谢！单元格超过部分用“……”替代，使用下面代码，单元格超过部分没有变化，错在哪里
Sub test()
Dim i%
   For i = 1 To [a1048576].End(xlUp).Row
     If Len(Cells(i, 1)) > 100 Then Cells(i, 1) = Left(Cells(i, 1), 100) & "……"
  Next i
End Sub

sub麻辣君

jsfc 发表于 2019-9-15 16:10
谢谢！单元格超过部分用“……”替代，使用下面代码，单元格超过部分没有变化，错在哪里
Sub test()
Di ...

不会啊，这样没错的啊，你的错误肯定不在这里

jsfc

sub麻辣君 发表于 2019-9-15 16:23
不会啊，这样没错的啊，你的错误肯定不在这里

你看下附件