网页资讯视频图片知道文库贴吧地图采购
进入贴吧全吧搜索

 
 
 
日一二三四五六
       
       
       
       
       
       

签到排名:今日本吧第个签到,

本吧因你更精彩,明天继续来努力!

本吧签到人数:0

一键签到
成为超级会员,使用一键签到
一键签到
本月漏签0次!
0
成为超级会员,赠送8张补签卡
如何使用?
点击日历上漏签日期,即可进行补签。
连续签到:天  累计签到:天
0
超级会员单次开通12个月以上,赠送连续签到卡3张
使用连续签到卡
07月30日漏签0天
excel吧 关注:281,423贴子:1,551,160
  • 看贴

  • 图片

  • 吧主推荐

  • 视频

  • 游戏

  • 12回复贴,共1页
<<返回excel吧
>0< 加载中...

求助word如何用vba 清空表格某一个区域的内容

  • 只看楼主
  • 收藏

  • 回复
  • 花间一壶酒
  • E通百通
    12
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
word里又没有resize,不想循环所有单元格,速度慢。想了几天了。清空灰色区域,谢谢啦


  • 花间一壶酒
  • E通百通
    12
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
现在用的tables(1).cell(i,j)循环下清空,应该有直接选择单元格区域的吧


2025-07-30 20:20:29
广告
不感兴趣
开通SVIP免广告
  • 1030kankan
  • E知半解
    5
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
可以用 table.Cell(r, 2).Range.Text = ""吧


  • 1030kankan
  • E知半解
    5
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
set target=table.Cell(2, 1).Range
target.end=table.Cell(5, 4).Range.End
target.Text = ""


  • 花间一壶酒
  • E通百通
    12
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
还是没反应


  • KDV587
  • 见E勇为
    7
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
插眼


  • 1030kankan
  • E知半解
    5
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
Sub Clear()
Dim tbl As Table
Dim targetRange As Range
Set tbl = ActiveDocument.Tables(1)
Set targetRange = tbl.Cell(1, 2).Range
targetRange.End = tbl.Cell(4, 4).Range.End
targetRange.Delete
MsgBox "指定区域内容已清空!"
End Sub


登录百度账号

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频!
  • 贴吧页面意见反馈
  • 违规贴吧举报反馈通道
  • 贴吧违规信息处理公示
  • 12回复贴,共1页
<<返回excel吧
分享到:
©2025 Baidu贴吧协议|隐私政策|吧主制度|意见反馈|网络谣言警示