VBA 通过起始字母自动插入行 [已关闭]

VBA Auto Row Insert by Starting Letter [closed]

提问人：Alex Jones 提问时间：11/17/2023 最后编辑：Alex Jones 更新时间：11/18/2023 访问量：51

问：

已关闭。这个问题需要更加集中。它目前不接受答案。

想改进这个问题吗？更新问题，使其仅通过编辑这篇文章来关注一个问题。

3天前关闭。

这篇文章在 2 天前被编辑并提交审核，未能重新打开帖子：

原始关闭原因未解决

改进此问题

有没有办法使用 VBA 在 A 列中的任何一行中搜索字母 Q，如果字母 Q 是该行中的第一个字母，则宏会自动在该行上按插入，将其与前一行分开。

我基本上想在每次字母 Q 是一行的第一个字母时在上面插入一行......

Excel VBA 自动化 电子表格

评论

0赞 BigBen 11/17/2023
循环和函数应该可以工作。你能分享一下你正在使用的吗？LeftIf...Then

答：

0赞 user11222393 11/17/2023 #1

在结合超级基础教程的同时，可以做很多事情。

找到一个教程 如何遍历范围，然后如何获取单元格中的第一个字母，然后如何插入行，然后了解在插入/删除时最好从上到下循环：

Sub InsertRowBeforeQ()
    For i = 20 To 1 Step -1
        If Left$(Range("A" & i), 1) = "Q" Then Range("A" & i).EntireRow.Insert
    Next i
End Sub

以前：

enter image description here

后：

enter image description here

评论

0赞 Alex Jones 11/18/2023
因此，我添加了大量其他格式化内容，但是我最困惑的是，遵循此内容不仅要为任何以 Q 开头的行着色，还要为以 Q 开头的行之后的两行着色
0赞 user11222393 11/18/2023
我不认为我跟着你。帖子是关于插入行，而不是给任何东西着色:)
0赞 Alex Jones 11/20/2023
是的，我正在寻找另一件作品，但具有相同的搜索参考。

上一个：返回最佳模型（从一组模型中） R for Automation

下一个：从 excel 工作表中查找下一个数字的特定算法 [已关闭]