作ってみた。
括弧の位置にカーソルを置いて実行すること。

escape;
#c = column;
#l = lineno;
gokakko;
if(lineno < #l || (lineno == #l && column < #c)){
#c = column;
#l = lineno;
gokakko;
}
delete;
movetolineno #c+1, #l;
delete;