工具里自带的很方便
但如果要自定义方式就写宏
function tt()
{
let r = []
for (let i = 2; i <= Sheets.Count; i++) {
r.push(...Sheets(i).UsedRange.Value2.slice(1).filter(x => x.some(y => y !== void 0)))
}
Sheets(1).UsedRange.ClearContents()
Sheets(1).Range("A1").Resize(r.length, r[0].length).Value2 = r
}
意思是,从第2个到最后的Sheet,用slice(1)去掉表头,用filter去掉全空的行,结果写入Sheet1
Lv.1新人创作者
Lv.3优质创作者
Lv.2潜力创作者
Lv.2潜力创作者
@金山办公