要实现批量修改，核心思路是通过查询生成对应的ALTER TABLE语句，再执行这些语句。以下是两种可行方案：

方案1：生成修改语句后手动执行 #

先运行以下SQL，生成所有需要执行的ALTER语句：

SELECT 'ALTER TABLE ' || tc.owner || '.' || tc.table_name || ' MODIFY ' || tc.column_name || ' VARCHAR2(' || tc.data_length || ' CHAR);' AS alter_sql
FROM all_tab_cols tc
JOIN all_tables t ON tc.owner = t.owner AND tc.table_name = t.table_name
WHERE tc.owner = 'LEMANS'
  AND tc.data_type IN ('VARCHAR', 'VARCHAR2'); -- 精准匹配目标类型，避免误匹配其他带VARCHAR的类型

执行后会得到一列完整的ALTER语句，将这些语句复制出来直接执行即可。这种方式的好处是可以先检查生成的语句是否正确，避免意外修改。

方案2：用PL/SQL块自动批量执行 #

如果需要自动完成所有修改，可以用PL/SQL循环执行：

DECLARE
  CURSOR c_target_cols IS
    SELECT tc.owner, tc.table_name, tc.column_name, tc.data_length
    FROM all_tab_cols tc
    JOIN all_tables t ON tc.owner = t.owner AND tc.table_name = t.table_name
    WHERE tc.owner = 'LEMANS'
      AND tc.data_type IN ('VARCHAR', 'VARCHAR2');
  v_exec_sql VARCHAR2(1000);
BEGIN
  FOR rec IN c_target_cols LOOP
    -- 拼接修改语句
    v_exec_sql := 'ALTER TABLE ' || rec.owner || '.' || rec.table_name || ' MODIFY ' || rec.column_name || ' VARCHAR2(' || rec.data_length || ' CHAR)';
    -- 执行语句
    EXECUTE IMMEDIATE v_exec_sql;
    -- 输出执行结果（可选）
    DBMS_OUTPUT.PUT_LINE('已修改：' || rec.owner || '.' || rec.table_name || '.' || rec.column_name);
  END LOOP;
END;
/

注意事项 #

• 执行前需确保当前用户拥有ALTER ANY TABLE权限，或对目标用户下的所有表拥有ALTER权限。
• 建议先执行方案1的查询，确认生成的语句符合预期后再执行修改，避免数据风险。
• 若数据库使用多字节字符集，需确认原data_length作为CHAR语义长度不会导致数据截断（按你的需求是沿用原长度，所以可忽略此点，但若有特殊数据需额外验证）。

内容的提问来源于stack exchange，提问作者GoWaPs