逐个处理表格区域中的单元格JSA

cutebe · 发表于 2026-10-27 08:55:28

本帖最后由 cutebe 于 2026-10-28 08:55 编辑

办公WPS表格代码JSA

//逐个显示表格选区内单元格 //显示可换成其他逐个操作单元格
//可多个小区块，重叠单元格只处理一次，整行/整列只处理在用区UsedRange内的

function 区域内单元格地址(表,选区){ //返回单元格地址对象
let 在用区=表.UsedRange;
let 单元格对象={},计数=0;
//遍历选区内所有小区块
console.log("选区地址："+选区.Address() +"\t在用区："+ 在用区.Address());
let 选区地址=选区.Address();
let 选区块组=选区地址.split(',');
for(let 块号=0;块号<选区块组.length;块号++){
let 有效地址=选区块组[块号]; //console.log("块"+块号+"："+选区块组[块号]);
//处理整行、整列的区 //整两行$7:$8 //整列$D:$D
let 区块待判地址=选区块组[块号].replace(/[$]/g,'');
let 区块在用=Intersect(在用区,表.Range(区块待判地址));
let 区块无行地址=区块待判地址.replace(/[\d]/g,''); //地址去除数字
let 区块无列地址=区块待判地址.replace(/[a-zA-Z]/g,''); //地址去除字母
if(区块在用){
if(区块无行地址==':' || 区块无列地址==':'){
有效地址=区块在用.Address(); //整行或整列的在用重叠部分
}
}else{
if(区块无行地址==':'){ //整行跳过
console.log("块"+块号+"："+选区块组[块号]+ "\t//整行不在用区跳过");
continue;
}
if(区块无列地址==':'){ //整列跳过
console.log("块"+块号+"："+选区块组[块号]+ "\t//整列不在用区跳过");
continue;
}
}
//获取普通有限区块的行号列号，遍历区内每个单元格
let 单块有效区=表.Range(有效地址);
for(let 单元格 of 单块有效区.Cells){
let 格地址=单元格.Address(0,0);
if(typeof 单元格对象[格地址]=="undefined"){
单元格对象[格地址]=1;计数++; //存单元格地址
}else{单元格对象[格地址]++;}
}
console.log("块"+块号+"："+选区块组[块号] +"\t有效："+有效地址 +"\t行列数："+单块有效区.Rows.Count +"，"+ 单块有效区.Columns.Count);
}
console.log("单元格数量："+ 计数);
return 单元格对象;
}

复制代码

感谢 Klubnikoff 指正，修改方案二：       //另一修改方案在上面原代码处↑
if(区块无行地址==':'){       //整行跳过
      if(区块在用){
            有效地址=区块在用.Address();
      }else{
            console.log("块"+块号+"："+选区块组[块号]+ "\t//整行不在用区跳过");
            continue;
      }
}
if(区块无列地址==':'){       //整列跳过
      if(区块在用){
            有效地址=区块在用.Address();
      }else{
            console.log("块"+块号+"："+选区块组[块号]+ "\t//整列不在用区跳过");
            continue;
      }
}

cutebe · 发表于 2026-10-27 09:01:43

办公WPS表格代码JSA //旧版

//逐个显示表格选区内单元格 //显示可换成其他逐个操作单元格
//可多个小区块，重叠单元格只处理一次，整行/整列只处理在用区UsedRange内的

function 显示区内单元格测试(){
console.clear();
let 当前表=ActiveSheet,选中区域=Selection;
let 单元格地址对象=区域内单元格(当前表,选中区域); //活动表,选中多区
for(let 格地址属性 in 单元格地址对象){
if(单元格地址对象.hasOwnProperty(格地址属性)){
console.log("地址属性："+ 格地址属性 +"\t值："+ 单元格地址对象[格地址属性]);
let 单元格=当前表.Range(格地址属性);
//可以对单元格进行操作。如：
//单元格.Value2=2; //修改内容
//单元格.Interior.Color = 0xC0FF; //设置背景橙色
}
}
}
function 区域内单元格(表,选区){ //旧版函数：返回单元格对象
let 在用区=表.UsedRange;console.clear();
let 单元格对象={},计数=0;
//遍历选区内所有小方块
console.log("选区地址："+选区.Address() +"\t在用区："+ 在用区.Address());
let 选区地址=选区.Address();
let 选区块组=选区地址.split(',');
for(let 块号=0;块号<选区块组.length;块号++){
let 有效地址=选区块组[块号]; //console.log("块"+块号+"："+选区块组[块号]);
//处理整行、整列的区 //整两行$7:$8 //整列$D:$D
let 区块待判地址=选区块组[块号].replace(/[$]/g,'');
let 区块无行地址=区块待判地址.replace(/[\d]/g,''); //地址去除数字
if(区块无行地址==':'){ //整行区，取在用区内部分
if(Intersect(在用区,表.Range(区块待判地址))){
let 整行在用区=Range(在用区.Address() +" "+ 区块待判地址);
//console.log("块"+块号+"："+ 选区块组[块号] + "\t整行取重叠在用："+ 整行在用区.Address());
有效地址=整行在用区.Address();
}else{
console.log("块"+块号+"："+选区块组[块号]+ "\t//整行不在用区跳过");continue; //整行跳过
}
}
let 区块无列地址=区块待判地址.replace(/[a-zA-Z]/g,'');
if(区块无列地址==':'){ //整列区，也是取在用区内部分
if(Intersect(在用区,表.Range(区块待判地址))){
let 整列在用区=Range(在用区.Address() +" "+ 区块待判地址);
//console.log("块"+块号+"："+ 选区块组[块号] + "\t整列取重叠在用："+ 整列在用区.Address());
有效地址=整列在用区.Address();
}else{
console.log("块"+块号+"："+选区块组[块号]+ "\t//整列不在用区跳过");continue; //整列跳过
}
}
//获取普通区块的行号列号，遍历区内每个单元格
let 单块有效区=表.Range(有效地址);
let 单块起止=有效地址.split(':');
let 起始格=表.Range(单块起止[0]),终止格=表.Range(单块起止[1]);
for(let 行号=起始格.Row;行号<=终止格.Row;行号++){
for(let 列号=起始格.Column;列号<=终止格.Column;列号++){
let 单元格=表.Cells(行号,列号);
let 格地址=单元格.Address(0,0);
if(typeof 单元格对象[格地址]=="undefined"){单元格对象[格地址]=1;计数++;} //存单元格地址
else{单元格对象[格地址]++;}
//console.log("属性："+ typeof 单元格对象[单元格.Address(0,0)]);
}
}
console.log("块"+块号+"："+选区块组[块号] +"\t有效："+有效地址 +"\t行列数："+单块有效区.Rows.Count +"，"+ 单块有效区.Columns.Count);
}
console.log("单元格数量："+ 计数);
return 单元格对象;
}

复制代码

bj6688 · 发表于 2026-10-27 09:28:22

感谢分享。

a66 · 发表于 2026-10-27 09:28:53

了解了

bj6688 · 发表于 2026-10-27 09:29:41

学习了

wych12 · 发表于 2026-10-27 09:36:33

学习学习，感谢分享！！！

1e3e · 发表于 2026-10-27 10:36:46

谢谢分享

cutebe · 发表于 2026-10-27 10:40:51

应用：不自动换行 两端对齐的换行需要逐单元格处理

把WPS文字的表，复制到表格中；有部分单元格换行的原因是水平两端对齐格式。整个区域直接操作无效，需要逐个单元格处理。

function 取消自动换行测试(){
let 当前表=ActiveSheet,选中区域=Selection;
选中区域.WrapText=false; //不自动换行
let 单元格地址对象=区域内单元格(当前表,选中区域); //活动表,选中多区
for(let 格地址属性 in 单元格地址对象){
if(单元格地址对象.hasOwnProperty(格地址属性)){
let 单元格=当前表.Range(格地址属性);
//取消水平两端对齐
if(单元格.HorizontalAlignment==-4130){单元格.HorizontalAlignment=1;}
}
}
选中区域.EntireRow.AutoFit(); //自适应行高
}

复制代码

ZMLoveLH · 发表于 2026-10-27 11:08:01

进来看看，学习了

Klubnikoff · 发表于 2026-10-28 05:08:14

新版这里有个边界情况：if(区块在用) 没先判断是不是整行/整列，所以普通矩形选区也会被裁到 UsedRange。比如 UsedRange 是 A1:B2，选中 B2:C3，按这段逻辑最后只会处理 B2，C2、B3、C3 都漏了；但普通选区完全在 UsedRange 外时反而又会完整处理。

如果本意是注释里说的“只有整行/整列才限制在在用区”，可以把求交后替换有效地址的逻辑放进整行/整列判断里，普通矩形选区直接保留原地址。

yyz219195888 · 发表于 2026-10-28 06:20:54

学习学习

yyz2191958 · 发表于 2026-10-28 13:05:24

强大

ebaqiang · 发表于 2026-11-7 07:54:28

路过，留个脚印~

cutebe · 发表于 2026-11-7 17:12:18

function 取消自动换行(){ console.clear(); let 当前表=ActiveSheet,选中区域=Selection; //选中区域.WrapText=false; //不自动换行 let 单元格地址对象=区域内单元格地址(当前表,选中区域); //活动表,选中多区 for(let 格地址属性 in 单元格地址对象){ if(单元格地址对象.hasOwnProperty(格地址属性)){ let 单元格=当前表.Range(格地址属性); //取消水平两端对齐 if(单元格.HorizontalAlignment==-4130){单元格.HorizontalAlignment=1;} 单元格.WrapText=false; //不自动换行 } } 选中区域.EntireRow.AutoFit(); //自适应行高}

复制代码

xunmi818 · 发表于 2026-11-7 17:19:31

看一看

xunmi818 · 发表于 2026-11-7 17:20:00

感谢分享

wuyou · 发表于 2026-11-7 17:36:28

function 取消自动换行(){
console.clear();
let 当前表=ActiveSheet,选中区域=Selection;
//选中区域.WrapText=false; //不自动换行
let 单元格地址对象=区域内单元格地址(当前表,选中区域); //活动表,选中多区
for(let 格地址属性 in 单元格地址对象){
if(单元格地址对象.hasOwnProperty(格地址属性)){
let 单元格=当前表.Range(格地址属性);
//取消水平两端对齐
if(单元格.HorizontalAlignment==-4130){单元格.HorizontalAlignment=1;}
单元格.WrapText=false; //不自动换行
}
}
选中区域.EntireRow.AutoFit(); //自适应行高
}

复制代码

cutebe · 发表于 2026-11-7 18:55:36

编辑代码测试

function 取消自动换行测试(){
console.clear();
let 当前表=ActiveSheet,选中区域=Selection;
//选中区域.WrapText=false; //不自动换行
let 单元格地址对象=区域内单元格地址(当前表,选中区域); //活动表,选中多区
for(let 格地址属性 in 单元格地址对象){
if(单元格地址对象.hasOwnProperty(格地址属性)){
let 单元格=当前表.Range(格地址属性);
//取消水平两端对齐
if(单元格.HorizontalAlignment==-4130){单元格.HorizontalAlignment=1;}
单元格.WrapText=false; //不自动换行
}
}
选中区域.EntireRow.AutoFit(); //自适应行高
}
//提取表格选区内单元格地址，让可以逐个单元格操作
//可多个小区块，重叠单元格只处理一次，整行/整列只处理在用区UsedRange内的
function 区域内单元格地址(表,选区){ //返回单元格地址对象
let 在用区=表.UsedRange;
let 单元格对象={},计数=0;
//遍历选区内所有小区块
console.log("选区地址："+选区.Address() +"\t在用区："+ 在用区.Address());
let 选区地址=选区.Address();
let 选区块组=选区地址.split(',');
for(let 块号=0;块号<选区块组.length;块号++){
let 有效地址=选区块组[块号]; //console.log("块"+块号+"："+选区块组[块号]);
//处理整行、整列的区
let 区块待判地址=选区块组[块号].replace(/[$]/g,'');
let 区块在用=Intersect(在用区,表.Range(区块待判地址));
let 区块无行地址=区块待判地址.replace(/[\d]/g,''); //地址去除数字 //整两行$7:$8
let 区块无列地址=区块待判地址.replace(/[a-zA-Z]/g,''); //地址去除字母 //整列$D:$D
if(区块无行地址==':' || 区块无列地址==':'){
if(区块在用){
有效地址=区块在用.Address(); //整行或整列的在用重叠部分
}else{
if(区块无行地址==':'){ //整行跳过
console.log("块"+块号+"："+选区块组[块号]+ "\t//整行不在用区跳过");
continue;
}
if(区块无列地址==':'){ //整列跳过
console.log("块"+块号+"："+选区块组[块号]+ "\t//整列不在用区跳过");
continue;
}
}
}
//遍历区内每个单元格
let 单块有效区=表.Range(有效地址);
for(let 单元格 of 单块有效区.Cells){
let 格地址=单元格.Address(0,0);
if(typeof 单元格对象[格地址]=="undefined"){
单元格对象[格地址]=1;计数++; //存单元格地址
}else{单元格对象[格地址]++;}
}
console.log("块"+块号+"："+选区块组[块号] +"\t有效："+有效地址 +"\t行列数："+单块有效区.Rows.Count +"，"+ 单块有效区.Columns.Count);
}
console.log("单元格数量："+ 计数);
return 单元格对象;
}

复制代码

wuyou · 发表于 2026-11-7 20:53:10

cutebe 发表于 2026-11-7 18:55
编辑代码测试

你可以把代码放在txt文件中，发到 184822951@qq.com ，我来测试一下。

悠悠答案 · 发表于 2026-11-7 22:41:35

很好谢谢

wuyou · 发表于 7 天前

cutebe 发表于 2026-11-7 18:55
编辑代码测试

我编辑你的代码，正常显示！

yunzhang · 发表于 7 天前

这帖的收藏！

yvianfgef · 发表于 7 天前

这帖的收藏

Ljf123456789 · 发表于 5 天前

感谢分享

		自动登录	找回密码
密码			注册

逐个处理表格区域中的单元格JSA

点评

评分

测试代码编辑

编辑代码测试

点评

浏览过的版块